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5 COMPUTER SOFTWARE ADDENDUM 

Attached hereto is a compact disc containing computer 
software and data including executable programs, scripts, and 
database management system tables that are used to implement 
the systems and methods provided by the present invention. 

10 More particularly, the attached compact disc contains software 
and data used to implement at least two distinct applications 
comprising the systems and methods provided by the present 
invention; such two distinct applications include a broad-based, 
general use energy management system (referred to as the 

15 Energy Management System "EMS"), and a limited user/function 
restricted application (referred to as the Producer Control Center 
"PCC") intended for use by fuel producers needing access to 
centrally stored and managed fuel deal data. Such material is 
protected by the Copyright Laws of the United States (17 U.S.C. § 

20 101, et seq.) and may not be copied without the express, written 
authorization of the copyright holder (Highland Energy 
Corporation). Copyright © 2001, Highland Energy Corporation. 
All Rights Reserved. 

25 BACKGROUND OF THE INVENTION 
Field of the Invention 

The present invention relates to systems and methods 
used to facilitate pricing, sale, and distribution of fuel to a 
customer. More particularly, the present invention is directed to 
30 automated systems and methods that are used to price fuels such 
as natural gas, oil, gas, other petroleum based fuels, etc., to 
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facilitate commodity sales of such fuels, to distribute such fuels to 
customers, and to track and report sales and distribution related 
data. 

Description of the Related Art 

Fuel sales and distribution systems and techniques are well 
known. Everyday millions of fuel sale contracts are completed in 
the U.S. and abroad. Fuels produced by a range of producers are 
transported over many modes of transportation (e.g., gas 
pipelines, etc.) to ultimately arrive at an intended destination. The 
steps involved in pricing fuel, selling a reserve, storing reserves, 
and ultimately transporting purchased fuel involve many parties 
including producers, agents, brokers, other middlemen and, 
ultimately, end customers. All of these parties have their own 
unique ways of doing business, reporting sale and purchase data, 
and collecting and paying against agreed upon contracts. 

Unfortunately, many of the steps and processes carried out 
to facilitate fuel sales and distribution are archaic, inefficient, and, 
often, paper-based. Such inefficient ways of doing business 
cause many parties to engage large teams of personnel to 
manage the intricate details often involved in fuel sale and 
distribution. Fuel deal pricing provides a good example of the 
inefficiencies involved in moving large volumes of natural gas and 
other fuels. 

Typically, pricing fuel deals in the natural gas arena 
involves manual processes related to gathering fuel index rates, 
manually computing sales prices across a multitude of fuel sales 
deals, laboriously factoring in transportation and other tangential 
costs, and managing for fuel overages and short falls often 
associated with transportation anomalies, etc. These processes 
typically involve the efforts of large teams of personnel within 



organizations who are required to constantly monitor sales deals, 
set pricing limits for sales people, and track and record fuel deal 
progress. 

While many systems have been developed to facilitate sale 
and distribution of fuel and other products, commodities, and 
services in general, no systems developed to date can effectively 
management the volume of transactions among a wide array of 
parties to efficiently and effectively get fuel from one place to 
another. Moreover, existing systems have heretofore not been 
able to facilitate pricing practices that factor in past fuel deal data 
across a multitude of prior fuel deals to better drive profit margins 
in the commodities and brokerage fields. 

Accordingly, there exists a serious need to provide systems 
and methods that enable centralized location and management of 
fuel deal data, provide for application of predetermined pricing 
techniques based on such fuel deal data, facilitate broad-based 
reporting based on such centrally stored fuel deal data to drive 
better business practices for parties to fuel deals, and increase 
productivity and make more efficient fuel sale and distribution 
practices. The present invention squarely addresses such a need 
and provides a new and improved systems and methods for 
facilitating fuel sale and distribution. 

SUMMARY OF THE INVENTION 

The present invention solves the problems mentioned 
above with regard to prior systems and methods used to facilitate 
sale and distribution of fuel to a customer. By squarely 
addressing the limitations of prior systems and methods, the 
present invention provides new and improved systems and 
methods that permit a wide array of users to broadly access a 
central data store to create and manage fuel deal data. Such new 



and improved systems and methods further permit the inclusion of 
pricing processes into existing business processes that are based 
on prior fuel deal data and which take into account prior prices 
charged across collections of prior fuel deal contracts. 

Accordingly, the present invention provides new and 
improved systems and methods for facilitating sale and 
distribution of fuel to a fuel customer. Such systems and methods 
include and involve a server facility configured to store fuel deal 
data and to process such fuel deal data to automatically generate 
pricing data based on the fuel deal data and in accordance with a 
predetermined pricing technique. The system and method also 
include and involve a client facility that is coupled to the server 
facility via an electronic data network and which is configured to 
permit a user to enter such fuel deal data and to cause the server 
facility to store and process the fuel deal data to generate the 
pricing data. As such, fuel may be sold and distributed to a fuel 
customer via a fuel distribution system based on the fuel deal data 
and the automatically generated pricing data. 

BRIEF DESCRIPTION OF THE DRAWINGS 

The present invention is described in detail below with 
reference to the following drawing figures, of which: 

FIG. 1 is a timing diagram that depicts process flows within 
a business process that facilitates sale and distribution of fuel to 
customers in accordance with a preferred embodiment of the 
present invention; 

FIG. 2 is a system diagram in which client systems can 
access server system(s) to facilitate sale and distribution of fuel to 
customers in accordance with the business process illustrated in 
FIG. 1; 



FIG. 3A is an entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used 
to implement the systems that carry out the business process 
illustrated in FIG. 1; 

FIG. 3B is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3C is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3D is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 

FIG. 3E is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 

FIG. 3F is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 

FIG. 3G is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 

FIG. 3H is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 



used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 31 is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
5 used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 

FIG. 3J is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
10 process illustrated in FIG. 1 ; 

FIG. 3K is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 
15 FIG. 3L is another entity relationship diagram that depicts 

data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3M is another entity relationship diagram that depicts 
20 data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3N is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
25 used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 

FIG. 4A is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
30 illustrated in FIG. 1; 
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FIG. 4B is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 
5 FIG. 4C is another screen shot of a data processing 

application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4D is another screen shot of a data processing 
10 application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1 ; 

FIG. 4E is another screen shot of a data processing 
application running within a client system to facilitate at least 
15 some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4F is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
20 illustrated in FIG. 1 ; 

FIG. 4G is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1 ; 
25 FIG. 4H is another screen shot of a data processing 

application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1 ; 

FIG. 41 is another screen shot of a data processing 
30 application running within a client system to facilitate at least 



-7- 



some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4J is another screen shot of a data processing 
application running within a client system to facilitate at least 
5 some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4K is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
10 illustrated in FIG. 1 ; 

FIG. 4L is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 
15 FIG. 4M is another screen shot of a data processing 

application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1 ; 

FIG. 4N is another screen shot of a data processing 
20 application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 40 is another screen shot of a data processing 
application running within a client system to facilitate at least 
25 some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4P is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
30 illustrated in FIG. 1; 
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FIG. 4Q is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 5A is a flow chart that illustrates the operations carried 
out to effect a pricing technique and, in particular, one that 
effectuates a weighted average sales price for fuel deals in 
accordance with a preferred embodiment of present invention; 
and 

FIG. 5B is the conclusion of the flowchart started in FIG. 

5A. 

DETAILED DESCRIPTION OF THE 
PREFERRED EMBODIMENTS 

The present invention is now described in detail with regard 
to the drawing figures that were briefly described above. 
The systems and methods described herein are illustrative of the 
exemplary system implemented by way of computer software 
within a networked data processing environment and which is 
contained within multiple files housed on the compact disc that is 
appended to this patent document. Accordingly, the discussion 
that follows refers to such an exemplary system and those skilled 
in the art are encouraged to review such appended software in the 
context of fuel deal management for a complete understanding of 
the present invention. As noted at the beginning of this patent 
document, the material contained on the attached compact disc is 
protected by the Copyright Laws of the United States (17 U.S.C. § 
101, et seq.) and may not be copied without the express, written 
authorization of the- copyright holder (Highland Energy 
Corporation). Copyright © 2001, Highland Energy Corporation. 
All Rights Reserved. 



Referring now to FIG. 1, depicted therein is a timing 
diagram corresponding to the business process carried out within 
an organization to facilitate sale and distribution of fuel to a 
customer and which may be set up to utilize the systems and 
methods provided by the present invention. In particular, FIG. 1, 
illustrates a monthly or periodic business process involving 
several phases of operation that are carried out by the systems 
and methods provided by the present invention including, but not 
limited to: an availability phase, a bidding phase, a nominating 
(e.g., gas pipeline nominations, etc.) and routing phase, a third 
party and sanctioned sales period, a pricing period, an invoicing 
period, and an accounting period. Together, these periods make 
up what is referred to herein as a MONTH OF FLOW PROCESS 
(MFP). The MFP is described next to further illustrate the 
business operations that are handled by the systems and 
methods provided by the present invention. 

THE MONTH OF FLOW PROCESS (MFP) 
Availability Period 

During the availability period of the month of flow process, 
equity contracts for sale and distribution of fuel (those that need to 
roll from month to month) are established for the next month. 
These purchase deals define the anticipated volumes by 
well/meter for each producer. The status for the production month 
needs are set to 'Availability' at this point. Then, correspondence 
is transferred (via fax, email and phone conversations) to the 
various operators/producers in order to confirm the anticipated 
volumes to be produced. 

The anticipated production volume for an entire well/meter 
is then entered into the system. An entitlement and makeup 
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percentage is used to indicate how much of this volume is actually 
available to be marketed (represents the owner interest in the 
production of the well/meter). New deals are setup on the system 
to represent the new month's purchases. The package 
description is utilized to assist with easy recognition of volumes, 
price, etc. (used for identification purposes only). There is a 
process built within the system to automate the propagation of 
new deals to the next month (first time into a new month will 
automatically generate entries for the new month with zero 
volume amounts). The actual volume stored on the system (at 
this point) is zero. Only the nominated volumes contain the 
expected volumes for the production month. These 'nominated" 
volumes are equal to the estimates provided by the producers and 
entered into the system during this part of the month of flow. The 
primary area of the system utilized is the 'Availability' functions (off 
the system's main menu.) 



Bid Week Period 

During the bid week of the month of flow process, buyers 
are found for the volumes that were made available through the 
availability step described above. The status of the production 
month of the system needs is set to 'Sales" at this point. By 
setting the status to 'Sales' all of the price indices will be initially 
populated and 'seeded' with zero values. Each of the sales is 
confirmed by a dealmaker and is written up on a deal log sheet. 
These deal log sheets reflect the pipe/field, meter/well, company, 
contract, volume, and pricing instructions to support the sale. 
Prior to completing a deal, the dealmaker will work closely with the 
volume control group to ensure that appropriate volumes will be 
available at the well/meter of sale. The dealmakers then complete 
the deal log sheet entries for the sale and they are transferred to 



the volume control group for deal creation and entry into the 
system. Most of the volumes sold during this particular phase are 
for the equity purchase deals created during the availability 
period. 

5 

Nominating and Routing 

During the nominating and routing period of the month of 
flow process, the volumes to support the sales are routed from the 
producer's well/meters to the sales wells/meters (primarily to 

10 pooling points or field tanks). This process occurs throughout the 
entire month. When the volumes are routed to specific pool 
wells/meters, allowances are automatically made by the system 
for fuel, gathering and transport costs. These costs will net down 
the actual available volumes that can be applied to the sales 

15 deals. When volumes are routed to a pool/tank then these 
volumes reflect as Transport Out volumes'. The volumes then 
show up as "Transported In' (net fuel) on the receiving meter/well 
within the system. The primary area with the System utilized 
during this process is the "Route Volume" menu option within the 

20 Routing module (main menu selection of 'Routing' on the System. 

Third Party Deals and Sanctioned Sales 

During the Third Party Deals and Sanctioned Sales of the 
month of flow process, the dealmakers complete the third party 

25 deals. These deals are typically setup where a specific purchase 
deal (non equity type) is made to support a specific sales deal. 
These types of deals will usually have a specific price agreement 
and volume associated with them. Sanctioned sales represent 
sales from equity volumes with specific terms (prices, volumes, 

30 etc.) to specific sales meters. A sales price for a specific volume 
is set in advance of the production month with these types of 
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deals. All third party deals are excluded from Weighted Average 
Sales Price (WASP) calculations as discussed below with regard 
to FIGS. 5A and 5B (each third party purchase volume exists 
within its own WASP pool ('None')). All sanction sales deals are 
5 included within the WASP calculation but EACH combination 
sanction sales (purchase-to-sale) will utilize a 'Dedicated' WASP 
pool during the calculation. In this way, sanction sale costs etc. 
PLUS netback percentages can be applied. All equity deals 
combined with the 'Common' WASP pool where costs and prices 
10 are aggregated by meter/well based on volume weightings. All 
deals actually go through the calculation in order determine 
margins. However, the calculation has been setup to ensure that 
third party, sanctioned sale and equity pools are calculated 
without interfering with each other. 

15 

Pricing 

During the pricing period of the month of flow process, all 
monthly index based prices are entered immediately when 
published. These are usually entered just before the beginning of 

20 the production month. Daily prices are keyed or otherwise 
entered throughout the month as they are received. When deals 
are setup the 'Pricing' function within the System is used to 
actually calculate a price for the deal ('Price' tab on deal detail 
screen). Each evening, for example, the 'Price All Deals' function 

25 of the System is started. This particular function will re-price all 
deals for the entire month (Price + WASP calculations). For 
months in the 'Sales' phase, the nominations are re-priced and 
recalculated. For months in the 'invoiced' phase, the pipe/field 
actuals are re-priced and recalculated. In addition, to this periodic 

30 process, an option exists within the System to price production 
months throughout a day, for example. Below, with reference to 
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FIGS. 5A and 5B, the details related to fuel deal pricing are 
described. The ability of the present invention to incorporate a 
pricing technique such as one that is predetermined and 
implemented as a modular component of a larger software 
5 system, represents a significant point of novelty to which the 
present invention is directed. 

Invoicing 

During the invoicing period of the month of flow process, 
invoices for all of the sales for the previous month are produced. 
This represents the final step of the month within the system. All 
marketing individuals directly involved with the system for the 
month (controllers, dealmakers, etc.) are informed that the month 
is closing out and that invoices are now being produced. The 
status for the production month is changed to 'Invoiced'. A final 
nomination calculation is automatically done with the status 
updated. Accounting is then notified that the month has been 
completed. Invoicing reports are then run for the month and sent 
to the buyers by an accounting group, for example. Additional 
reports may be run (Sales By Pipe/Field, Purchase By Producer, 
Balancing Reports, Pipeline Statement Comparison Reports, etc.) 
by the accounting group for historical reference and reconciliation. 

Accounting 

25 During the accounting period of the month of flow process, 

an accounting group creates a revenue and journal entry feed to 
trapk receivables within an automated accounting system. This 
feed is created directly out of the system. Pipe/Field statements 
begin appearing beginning as early as the 15 th of the month. 

30 These statements represent volumes (by well/meter) for the 
previous month. Each accounting analyst is responsible for a 
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specific set of pipe/fieids. The volumes from these statements are 
entered as actuals into the system. A copy of the Pipe/Field 
statements are sent to the controllers for sign off. Accounting 
analysts then balance all of the purchase meter routing 
5 information for their respective pipe/fields. Accounting analysts 
then balance all of the sales meters for their respective pipe/fields. 
Accounting analysts then adjust any route volumes that cross 
pipe/fields to ensure interconnect balances are synchronized with 
pipe/field statements. Reconciliation and voucher reports can be 
10 run immediately after the production month is promoted to 
'Accounting' phase (meaning accounting is finished with the 
month). These reports can then be sent to producers and/or 
entered into to accounting system. 

15 AN EXEMPLARY SYSTEM 

Referring now to FIG. 2, depicted therein is a diagram of an 
exemplary system in which client systems can access server 
system(s) to facilitate sale and distribution of fuel to customers in 
accordance with the business process (MFP) illustrated in FIG. 1. 

20 In particular, system 100 includes both server(s) 102 and client 
systems 104. Additionally, a database management system and 
corresponding data store 106 (hereinafter data store 106) is used 
to store fuel deal data and programs. Servers 102 are configured 
to be accessed via wide area network connections such as those 

25 facilitated via the Internet using open standards based protocols. 
Client systems 106 are configured with software contained on the 
appended compact disc to access servers 102 to engage in fuel 
deal operations such as those described with reference to the 
month of flow process (MFP) discussed above with regard to FIG. 

30 1. 
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In FIG. 2, client systems 104 may be configured as desktop 
computing systems, wireless computing clients, etc. to access 
servers 102. Such access may be made possible via applications 
and technology such as dbOvemet TCP/IP Socket Connection 
5 Middleware. Furthermore, servers 102 execute common 
SEServer applications and routines utilizing dbOvernet 
middleware technology. 

Within the processing space of servers 102, a database 
server system such as Microsoft's SQLServer V.7.03 (a DBMS 
10 engine) may be instantiated. Such a database management 
system may control data store 106 and may be configured in 
accordance with the present invention to maintain all fuel deal 
data in accordance with the present invention. 

The following discussion further defines an exemplary 
15 arrangement for a client-server system implemented in 
accordance with the present invention: 

SERVERS 

MS Windows NT 4.0 (SP6) may be chosen as a Network 

20 Operating System. 

The DBMS may be Microsoft's SQL-Server (V7.0x) - 
Service Pack 3. All data generated and processed within the 
context of the present invention is stored in MS SQL-Server 
database tables. Such data is accessed via direct SQL 

25 statements (embedded in Windows applications, stored 
procedures, forms, and reports). There are several database 
views that have been setup to access aggregated information (for 
performance and consistency). In addition, all of the critical 
calculations and time consuming procedures such as pricing 

30 calculations, routing and rollover processes, etc. are written as 
Transact-SQL stored procedures and are contained on the 
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attached compact disc and are discussed in further detail below in 
the embedded description-tables found herein. 

The SEServer may be a Middleware Server Application. 
The system database is accessed via middleware software that 
5 uses TCP/IP (SEServer/dbOvernet). All databases queried 
through the system come through this middleware component. 

SECrystal (Crystal Reporting Engine Server Application) 
may be used for server side reporting functions, etc. All reports 
for the system utilizes a remote Crystal Reporting engine 
10 (SECrystal) server. These reports are run and saved on the 
server for electronic distribution. Crystal Report (V8.0) from 
Seagate Software is used for this function. 

The SEFax (Fax Server Application) may be used for Fax 
distribution. This server application is responsible for sending out 
15 reports via a fax device. This software monitors a specific 
directory and when a fax file 'shows up 1 in the directory it will be 
faxed. 

The MAPI Mail Client Software provides Email (like 
Microsoft Outlook or Outlook Express). The MAPI compliant email 
20 service needs to be running on the same machine as the report 
engine server (SECrystal). This provides the ability to email 
reports (Correspondence) automatically. Options should be set 
on this client to automatically check (send/receive) at periodic 
intervals. 

25 The Adobe Acrobat Reader (Free PDF Viewer) is used to 

view reports, etc. The server machine that runs the SECrystal 
reporting server application needs to also have the PDF viewer 
installed. This is used in order to 'spool' to paper the print jobs. 
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WEB ACCESS - NETWORK CONNECTIVITY 

All functions within the System are available over the 
Internet (with appropriate security). An individual wishing to log in 
to the system over the Internet will need to have appropriate 
5 application security to log in, the current application executable 
program (as contained on the attached compact disc) and an ISP 
account. System administrators will need to furnish access site 
addresses (e.g., IP addresses, domain names, etc.) to users to 
address the systems provided by the present invention. 

10 

CLIENT SYSTEMS 

Client systems may utilize a Client Operating System such 
as MS-Windows 95/98/Me; MS-Windows NT 4.0/2000. TCP/IP 
network protocol is required. Access to the server TCP/IP 

15 address (either LOCAL address or REMOTE address is required.) 

The system typically includes a single .EXE flle(s) (plus 
approximately 8 disk compression and graphics DLL's). The 
system application require only a single executable with a few 
DLL's to reside on the client machine. No other client 

20 configuration software is required. Upgrades to the client software 
are automatically done when a user first connects (logs in) 
through the Internet (on application startup). A version number 
check will be made if necessary and a new installation program 
and script are automatically downloaded. 

25 The Adobe Acrobat Reader (FREE PDF view) is used as a 

reporting system for files saved in the PDF 1.2 format. The 
default output for all reports on the system is the standard PDF 
format. This provides for email/electronic storage. In order to 
view reports this software (or other third party viewer with a file 

30 association to .pdf files) needs to exist on the client machine. 
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The MAPI Mail Client Software is used for electronic mail 
communications. A MAPI compliant email service needs to be 
running on the client machine to be able to highlight a report and 
email it using the client email address list. This software is not 
5 required to run the but is required to take advantage of the 
system's ability to attach reports automatically within an email 
client. 

All client applications are written using DELPHI (V5+) 
including Delphi 3 rd party tools and procedures. Such applications 
10 and stored procedures and identified 3 rd party tools are further 
described in the description-tables found below. 

DATABASES, AND CORRESPONDING 
ENTITY RELATIONSHIPS 

15 The various database tables that make up the system have 

been divided into nine (9) database subject areas. A subject area 
within this context is simply a logical aggregation of tables that 
support a particular business or system function. All of the 
database tables physically reside in the same database, but are 

20 not required to so reside. Only the documentation (as described 
below) has been constructed to illustrate these subject areas. It is 
also important to note that there are linkages (not documented 
here) between the various subject areas. 

These database subject areas and a description include: 

25 Companies: All company related tables (including 

company name, contact name, addresses functions, etc.). 

Contracts: All contract related tables (including contract 
provisions, notes, default standard reporting, etc.). 

Deals: All deal related tables (includes other costs, deal 

30 classes, correspondence, etc.). 
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Volume Inventory: All volume inventory tables (includes 
production interests, daily monthly, calculated values, etc.). 

Operational: All tables that were created to support the 
system (software application). These tables include fax queue 
5 tables, printer definition tables, system logs, system messages, 
reporting tables, etc. 

Pipes/Fields: All pipe/field and meter/well related tables. 

Pricing: All tables within the system that are related to 
pricing (indices, price descriptions, baskets, etc.). 
10 Routing: All tables within the system that define routes (leg 

definitions, daily leg rates, monthly leg rates, nom and actual 
volume routing instructions, etc.). 

Security: All security related tables within the system 
(includes user, logins, passwords, business functions, etc.). 
15 The above-described nine (9) logical database subject 

areas are next broken down into the actual tables that reside on 
the attached compact disc. For purposes of brevity, such 
database subject areas are broken down in the following tables: 

20 



25 <THIS SPACE LEFT BLANK INTENTIONALLY> 
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Below Is an inventory of the various database tables that are utilized by the Energy Management System. This 
particular inventory indicates the current number of rows (through January 2001), the database (MS SQL Server) 
and the database subject areas (logical grouping of tables). 



Ref# 


Table Name 


Rows 


Database 


Subject 
Area 


Description/Comments - 














Companies 
Subject Area 




I I 






1.0 


Address 




oul oerver 


Companies 


Contains record entries for each address for ail 
companies ano contacts wjinin companies 
(multiple address types per company and/or 


2.0 


Company 


1 t 242 


SQL Server 


Companies 


Contains a record entry for each company in 
the database. Information on this table 
includes company name, fax, phone and 
primary aggress reference identifier. 


3.0 


Contact^Group 


90S 


SQL Server 


Companies 


Contains a record entry for each contact group 
relationship. This is the mechanism for 


4.0 


Contact_GroupNames 


8 


SQL Server 


Companies 


Contains a record entry for each contact group 
name. 


5.0 


ContactFunction 


997 


SQL Server 


Companies 


Contains a record entry showing the contact to 
function relationships for a given company. 


6.0 


Contacts 


3,347 


SQL Server 


Companies 


Contains a record entry for each individual 
contact in the database. Includes full name, 
phone, fax, email, title, eta 














Contracts 
Subject Area 
















10.0 | 


m 


1,414 


SQL Server 


Contracts 


This table contains a record entry for each 
contract within the system. Bank information 
(ABA), Evergreen indicators, termination date, 
fixed pricing, eta type data attributes are stored 
on these records. Each contract on the system 
has an associated parent 'company 1 (on the 
Company table). 


11.0 ; 


fjKNetBack 


334 


SQL Server 


Contracts 


This table contains the netback pnang tiers 
associated with a given contract The parent 
table for this entity is the contract table (K). 
The netback pricing tiers are volume and date 
influenced. 


12.0 ; 


^Knotes 


589 


SQL Server 


Contracts 


This table contains an optional record entry for 
each contract on the system. If there are no 
notes associated with a contract then the 
records are not inserted on the database. This 
provides the users with a free form area for 
keeping notes about a contract 


13.0 


Kproducts 


1,049 


SQL Server 




This table contains a reference to the products 
mat are avaiiaoie (on, gas, liquids, eta) for a 
given contract A product has to be associated 
to a contract before a deal can be setup using 
that contract for that product 


14.0 


KreportOefauits 


48 


SQL Server 




This table contains the entire standard 
reporting defaults for a particular entity. These 
reports include invoices, remittance, vouchers, 
deal confirmations, eta 


15.0 


KreportOverndes 


0- 


SQLServer 




If a particular contract has its own unique 
standard reports then a reference to these 
unique reports is stored in this table for the 
contract in question. 
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Ref# 


Tabie Name 


Rows 


Database 


Subject 
Area. 


Description/Comments 




16.0 


Kservices 


1,068 


SQL Server 




This table contains a reference to the services 
that are available (marketing, end user, pass 
thru, eta) for a given contract A service has to 
be associated to a contract before a deal can 
be setup using that contract for that service. 








Deals 

Subject Area >*r.*' 




i 










20.0 


RdealClass 


6 


SQL Server 


Deals 


This table is a reference table that indicates the 
types of deal class options that are available. 
The context of each class is 0=Purchases, 
1=Sa!es and2=8oth. The description field 
indicates the possible answers (but the 
rDeaiCIassA tabie contains the actual answers 
that can be applied)* 




21.0 


RdealClassA 


23 


i SQLServer 


Deals 


This tabie is a reference table that indicates the 
possible deal classification options for each of 
the classifications defined in the rOeaiCtass 
table. 




22.0 


RdeaiCIassRules 


448 


SQL Server 


Deals 


This table contains record entries for every 
combination of deal classification answers 
(rDeaiCIassA table). Each of these 
classification options can have its own set of 
calculation rules/etc associated with it 


23.0 pEngine_Master 

M 


39,149 


SQL Server 


Deals 


This table contains a record entry for each pnce 
entry effective date (header record). 


24.0 |^EngineJVIasterPrice 


79,244 


SQL Server 


Deals 


This particular tabie contains the individual 
pricing components associated to a given deal 
on a given effective date (parent record is on 
the Engine ^Master table). When the user of 
the Energy Management System enters a 
price, this is the tabie that gets updated. 


25.0 JMPacKage 


65,351 


SQL Server 


Deals 


This table contains a record for each deal that 
has been setup on the system. Start Date, End 
Date, Deal Name, Contract Company, etc: are 
specified on this table. 


26.0 


JfackageCosts 


381 


SQL Server 


Deals 


This table contains entries for ail 'other costs' 
associated with a given deal Each of these 
'other costs 1 wiii have unique STID's (deal or 
meter level) and have calculated 'Engine' 
records automatically generated (when a 
calculation runs). 


27.0 \ 


PackageCorrespondence 


3,447 


SQL Server 


Deals 


This table contains entries for all of the 
electronic correspondence between the parties 
to the deal (deal confirmations, availability 
reports, remittance detail vouchers, eta). 


28.0 


PriceComponents 


19 


SQL Server 


Deals 


This table contain record entries for each 
component that can be set aside for pricing 
purposes (on a deal). Examples include 
•DAILY INDEX 9 , 'MONTHLY INDEX', 
'GATHERING', eta These tags will be 
associated to each component of the price to 
allow for future queries and reporting. In 
addition, these tags will provide an audit trail of 
all pricing related information. 


29.0 " 


PriceOesc 


33,877 


SQL Server 


Deals 


This table contains a record for each deal 
description (or comments) within the system. 
These price description records (only 1 per 
deal) provide the users with a place to put free 
form text to help describe the price of the deal. 




I 








Volume inventory 
Subject Area 




i _. 1 i i i 
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Ref# 


Table Name 


Rows 


Database 


Subject 
Area: 


Description/Comments ' — - 4 


30.0 


Engine 


280,970 


SQL Server 


Volume 
Inventory 


This table contains record entries for each 
calculated transaction that the system attaches 
to volume inventory items. Each transaction 
has a unique ST1D (transaction id) that are 
defined in the Engine.TransactionUst table. 
Indicators on this table determine the 
disposition of the transaction. 


31.0 


EngineJTransactionList 


36 


SQL Server 


Volume 
Inventory 


This table contains record entries that define ail 
of the transactions that can be calculated and 
stored in the Engine table. The STID field is 
the unique transaction identifier. 


32.0 


Gasinv 


159,501 


SQL Server 

I 
i 


Volume 
Inventory 


This is the primary table were ail volumes 
(nominated and actual) are maintained This 
table contains the header record entries that 
ehnwc hv month romnanv transaction 
pipe/field & meter/well the nominated volume 
and the estimated actual volumes. References 
tn nries tvnps no n tracts etc. an* stored on 

each record. 


33.0 


GasinvD 


4,145,617 


SQL Server 


Volume 
Inventory 


This table contains the detail (DAILY) 
nominated and estimated actual volumes for 

Hits waaiitv lauie. 


34.0 I Prodlnterest 


7,999 


SQL Server 


Volume 
Inventory 


This table contains a record that lists the 
production interests that are held for a given 
meter/weil and contract (with date 
effectiveness). 


35.0 i^ProdPkg 


4,080 


owi. oerver 


Volume 
Inventory 


TWe fahla /*nntsiin« a farnfri that inrti?*i5f£K ( h\/ 

month) the contract and the deal 10 of a deal 
that was generated automatically within the 
' AuaiiahiiHv* feauiiv ourchase deal creation) 
area of the system. 


36.0 j^fodSum 


39,296 


SQL Server 


Volume 
inventory 


This table contains records that indicate (by 
month and mater/weih the cross mmbtu's and 
the Btu factors. 


37.0 iProdVoi 


44,187 


SQL Server 


Volume 
Inventory 


This table contains record entries (by month 
and meter/well) which show the receipt and 
delivery mmbtu's per day. 


_ ■ e: 












Operational 
□Subject Area 














40 


AppiicatJonMessages 


55,882 


SQL Server 


Operational 


This table contains a 'roiling' 7 day listing of all 
application messages (such as those that are 
displayed to the console during a calculation). 


41.0 


ExceptionCategories 


8 


SQL Server 


Operational 


This table contains record entries to hold ail of 
the exception 'reasons' that will be used 
whenever an exception even occurs. There 
can be multiple types of exception categories. 


42.0 


Exceptiontist 


2,171 


SQL Server 


Operational 


This table contains entries for the actual 
exception events that get logged by the system. 
These represent an audit trail of non-normal or 
error type information. This table is linked to 
the ExceptionCategories table because each 
exception event (in this table) requires a reason 
category. 


43.0 


LogTabie 


4. 


SQL Server 


Operational 


This table is used for debugging purposes only 
and is not used in any screens or reports. 


44.0 


PrinterOef 


6 


SQL Server 


Operational 


This table contains a record for each available 
printer (including driver and port). 
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Table Name 


Rows 


Database 


Subject 
Area 


Description/Comments; ; — ; * v y^ v - v , . s v 


45.0 


RgasMonth 


1,440 


SQL Server 


Operational 


This is a reference table that contains a record 
for each month from 1/1980 thru 12/2099. in 
addition, this table also contains the status and 
status update sequence numoer Tor tne 
particular month. This status is used in order to 
enable/disable certain functions within the 
Energy Management System throughout the 
month. 


46.0 


RGasMonthStatus 


1,873 


SQL Server 


Operational 


This represents a historical audit table that will 
oe u pa a tea every time ine montniy status for a 
given prooucnon monm is moutneo (via triggers 
on the RgasMonth table). This provides a 
mechanism of identifying who & when the 
changes were for the status, overtime. 


47.0 i SEMessages 


1,251 


SQL Server 


Operational 


Alt system messages are stored in this table. 


48.0 


SEAudit 




oul oerver 


Operational 


This table contains record entries for those 
events that are deemed 'auditable'. Some 
examples include 'Login' events. Actualization 
balancing events, standard report submission 
events, eta 


49.0 


SEimages 


2 


SQL Server 


Operational 


This table contains record entries that contain 
graphic images for the screen and reports used 
throughout the system. 


50.0 

r 

i 


SELocations 




SQL Server 


Operational 


This table contains record entries that define 
the server paths (network folder locations) 
where certain key correspondence items are 
found. For example (report location, deal 
correspondence, etc). 


51.0 | 

1 


, SEProcessingCodeTypes 


10 


SQL Server 


Operational 


This table contains the Type' codes to the 
reference table 'SEProcessingCodes'. An 
example is the type code of 'CONTRCTPRD* 
which describes a reference code for contract 
products. 


52.0 k 


ySEProcessingCodes 


143 


SQL Server 


Operational 


This table contains reference codes for vanous 
fields used throughout the Energy Management 
System. 


53.0 I 


^SERptsExecutedStats 


19,117 


SQL Server 


Operational 


This table contains record entries that lists the 
start and end date and times for all reports that 
were submitted. This provides statistics on 
how long to execute/eta 


54.0 ; 


^SERptsGroupltems 


218 


SQL Server 


Operational 


This table contains entries of each specific 
report mat exists wnnm a reporting tao (group; 
within a specific reporting folder (category). 


55.0 


SERptsGroups 


WW 


oul oerver 


Operational 


i nis taoie contains a list or an avauaoie 
reporting tabs (groups) within each reporting 
folder (category). 


56.0 


SERptsitemDetaii 


123 


SQL Server 


Operational 


Tlits table contains the list of all available 
reports within the system. 


57.0 


SERptsltemParms 


OS/ 


SQL Server 


Operational 


This table contains record entries for each 
report parameter for each report defined to the 
system. Options exist for substituting a 
different label name than actual parameter field 
name. 


58.0 


SERptsQueue 


5,667 


SQL Server 


Operational 


This table contains record entries for all 
'submitted* reports (report queue). When 
reports are automatically removed from the 
system the record is removed from this queue. 


59.0 


SERptsQueueDistribute 


7,855 


SQL Server 


Operational 


This table contains entries that dictate how to 
distribute tne output or reports from the queue 
(fax, email, printer, etc.). 


60.0 


SERptsQueueNotify 


276 


SQL Server 




This table contains entries, that inHtrmto tuhn 
(and if) individuals or groups have been notified 
that the report has finished. 


61.0 


SERptsScheduie 


0 


SQL Server 


Operational 


This table contains records that define specific 
schedules for the running of scheduled reports. - 
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Ref*. 


Table Name. 


Rows 


Database 


Subject. 
Area 


Description/Comments. : >,^ ^y- 




62.0 


SERptsScheduiedReports 


0 


SQL Server 


Operational 


This table contains record entries that define 
which reports to run as partof specific 
schedules. 




63.0 


SERptsScheduledGroups 


0 


SQL Server 


Operational 


This table contains 'groups for scheduling. 
This provides the ability to assign multiple 
individuals to a specific group and have the 
group belong to the schedule. 




64.0 


SERptsScheduledllserGroup 
s 


0 


SQL Server 


Operational 


This is the actual table that contains the 
members within a schedule group. Each entry 
in this table defines the group. 




65.0 


SERptsTablesUsed 


896 


SQL Server 


Operational 


This table contains documentation on what 
tables, views or stored procedures are used 
within each report. 








f 










PioA* A Fields 

SubfectArea 












80.0 


Meter 


4,335 


SQL Server 


Pipes and 
Fields 


This table contains a record entry for each 
well/meter that has been setup on the system. 
The pipe/field, name, county and state are 
stored here. 




81.0 


MeterNotes 


935 


SQL Server 


Pipes and 
Fields 


This table contains a record for notes pertaining 
to meters/weiis. 


82.0 


PipeFieid 


372 


SQL Server 


Pipes and 
Fteids 


This table contains a record entrv for each 
pip/Held defined on the system. The company 
and the pipe/field description are stored here. 


83.0 J 


MeterRates 


3,980 


SQL Server 


Pipes and 
Fields 


This table contains the entire pressure base, 
Btu factors by effective date for specific 
meters/wells. 


54.0 |;:M6terAiiocations 


551 


SQL Server 


Pipes and 
Fields 


This table contains entries for the allocation 
information on the meter/well. This includes 
accounting cross-reference codes (id and 
deck). 












i Pricing . > . 

*J8ub|ectArea * -V y*^y. ' . - 


J ! 








90.0 |f 

i 
ir 


GCJndex 


142,268 


SQL Server 


Pricing 


This table contains record entnes by Day for 
dairy index prices AND/OR a single entry for 
monthly index prices (1 * day of month for 
monthly indices). 


91.0 1 


ylndexRef 


228 


SQL Server 


Pricing 


This represents the master table of ail defined 
price indices within the Energy Management 
System. One record entry per index exists 
within this table. 


92.0 


IndexBaskets 


14 


SQL Server 


Pricing 


This table contains a record entry for each 
index basket established on the system. These 
index baskets can be associated to sales or 
purchase deals just as normal indexes are 
associated to them. Simple averages are 
calculated with all index items within an index 


93.0 


IndexSasketLink 


36 


SQL Server 


Pricing 


This table contains the actual indices that are 
currently associated with an index basket An 
unlimited number of indices can exist in a 
basket A simple average of all the prices 
within the basket is used. 










i 




Routing : ■■ , . , ^ ^ 
SubfectArea r v * * 














101.0 


LegRef 


4,226 


SQL Server 


Routing 


This table contains record for each unique 
transportation leg (meter-to-meter) on the 
Energy Management System. 
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Rof# 


Table Name 


Rows 


Database 


Subject- 
Area 


; Description/Comments v v&^ / ^ - o : ^ - 


102.0 


Leg 


57,830 


SQL Server 


Routing 


This table contains a record for each active ieg 
within a given month. Nomination and actual 
rates that the leg .utilizes during the month are 
posted on each record. Tfiese rates are used 
with the actual routing instructions (LegOetaii 
table). 


103.0 


LegO 


0 


SQL Server 


Routing 


This table contains up i iunal entnes for any 
daily leg rates that need to be utilized within a 
given month. Daily rates are checked PRIOR 
to the monthly rates (on the Leg table) when 
setting up the actual routing instructions 
(LegOetaii table). 


104.0 

■i : 


LegOetail 


1,716,695 


SQL Server 


Routing 


This table contains the detail routing 
instructions for ail volumes purchased ail the 
way through the sales points for that particular 
volume. Nomination AND actual routing 
instructions are stored for each meter/well that 
had volume activity during the month. All 
volumes sold can be tracked back to originating 
purchase ooints. 


105.0[| 

• 0 


I WASPResovedRoutmg 


34,304 


SQL Server 


Routing 


This table contains record entries that show the 
poof level calculated totals for ail receipt and 
delivery points within the system. 'Common', 
'Dedicated' and 'None' pools are aggregated 
and the total numbers stored here. Only 
'Common' pool volumes and dollars represent 
the totals from more than one purchase point 
(shows weighted average pricing based on 
volumes purchased and/or transported). 
















j Security 
I Subject Area 










s 












110.ET 


*" GCUser 


27 


SQL Server 


Security 


This table contains a single record entry per 
unique user (employee) on the system. The 
character based (up to 12 character) login ID 
AND an internal user id (integer) are unique 
keys to this table. 


111.0 


GCButton 


58 


SQLServer 


Security 


This table contains records that represent the 
system functions that have specific security 
rules associated with them on the system. For 
example a system function of 'DEALS* has 
been setup in order to define security 
relationships between users (GCUser table) 
and this function. 


112.0 


GCSecunty 


1,548 


SQL Server 


Security 


This table stores the relationships between 
users on the system (GCUser table) and the 
system function that they have access too 
(GCButton table). A specific access privilege is 
stored for each of these relationships (like 
READ ONLY, READ/UPDATE, 
READ/UPDATE/DELETE or SUPER). 
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Referring now to FIGS. 3A-3N, depicted therein are entity 
relationship diagrams that illustrate data relationships among 
tables and corresponding table entries used to implement the 
systems and methods that carry out the business process 

5 illustrated in FIG. 1. The database tables used logically 
categorized above into the above-identified nine (9) subject areas 
are maintained within data store 106 (FIG. 1), and are included 
among the files present on the attached compact disc, and are 
further defined in detail in FIGS. 3A-3N. Those skilled in the art 

10 will readily understand the data relationships among relational 
database tables as shown in FIGS. 3A-3N. Accordingly, for 
purposes of brevity, further comments about FIGS. 3A-3N have 
been omitted. 

In addition to the tables described and specified in the 
15 tables listed above, the following table illustrates an inventory of 
the various database views that utilized by the systems and 
methods provided by the present invention. 

20 



25 <THIS SPACE LEFT BLANK INTENTIONALLY> 



-21- 



View Descriptions 



Below is an inventory of the various database views that are utilized by the Energy Management System: 



Ref# 


View Name 


Description/Comments 


1.0 


V^SearchDB 


Provides a view to search the database stored procedures and triggers for specific text items. 
Used for assessing the impact of system changes. 


za 


VAccountingRevenueFeed 


Database view (3 select UNION) used for creating OGSYS iournai and revenue receivable data. 


3.0 -v- 


VCompany 


Dispiay of company information (name, address, eta) 


4.0 


Vcontact^Accounting 


Display the accounting contact for a given company. 


5.0 


Vcontact_Admm 


Display the administrative contact for a given company. 


6.0 


Vcontact_Controi 


Display the control contact for a given company. 





view Name 


Description/Comments: ^ , — . 


7.0 


Vcontact^Production 


Dispiay the production contact for a given company. This is the contact used for-Avaiiabiiity 
estimates/eta 


o.O 


Vcontactjvolconfirm 


Display the contact responsibie for confirming volumes within a given company. This is the 
contact used for volume confirmations in the 'Availability* phase. 


SJ.U 


VcontactFunction 
VContacts 


Display a list of ail contacts for a given company along with their respective functions (accounting, 
volume confirmations, etc. ) 


n.ap 


VETIDJDates 


Display name and addresses for contacts. 

Dispiay the engine start effective and end dates for a given engine transaction id (based on 
package). This view is used VERY LITTLE because of performance issues. 




VgasinvOJMomChg 
VKTermination 


Display list of daily volumes where the nomination volumes are different between two successive 
days. 

Displays specific contract termination information. 


18 6V 
19.<t: 


VlegOetaii_PipeJineCompans 
on 


Dispiay routing information summarized by meter. 

Display routing information in a format that is used for the pipe/field comparison report Used for 
reconciling fuel, gathering, transport. pvr, etc to pipe/field statements. 


20.Q£| 
21 .CN 


VlegOetaii^PurchasePointTot 
als 

VlegOetaiLSummary 


Dispiay routing information that shows total routing costs/etc for given purchase points (hop O's). 
Displays routing information (summarized) for reporting purposes (purchase meters/weiis only). f 


22.05 


VIegDetaiLSummarySales 
VMeterAllocations 


Displays routing information (summarized) for reporting purposes (sales meters/wells only). 
This view is used to list the current meter/well allocations (based on effective date) for each given 
meter/well. These allocations are the accounting deck and purchaser id information, which can be 
different from month to month. 


H 


VMeterRates 


This view is used to list the current meterVweii rates (standard pressure base, pipe/field pressure 
base, Btu factor, eta) for each given meter/weit These rates can be different from month to 
month. 


25.0 


VOurContact_Accting 


Display the current HEC contact for accounting information. 


* 25.0 


VOurContact^Prod 


Dispiay the current HEC contact for production information. 


27.0 
28.0 


VPackageJnfo 
VPrevGasMonthStuff 


Display detail list of information concerning a package (includes contacts, names, phones, eta). 


29.0 


VprodConfirmLetters 


Displays current month volume totals versus previous month volume totals. 

Display contact information for use with correspondence on production volumes. Specifically used 

in the confirmation process in the •Availability' production month phase. 


30.0 


Vprodlnterest 


Display a list of contracts and meters to confirm the production interests. This is used pnmanly in 
the 'Availability production month phase. 


31.0 


VRequestProducfcon 


Display list ot production interest volume and meter information. This is used pnmanry in the 
'Availability* production month phase and is used when sending out estimate reports to producers. 
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Once all software and data as described above has been 
properly installed on one or more server systems 102 and within 
one or more coupled (networked) client systems 104 as illustrated 
5 in FIG. 1, use and operation of the systems and methods provided 
by the present invention may be commenced. Such operations 
may be in relation to the general use application (Energy 
Management System - EMS) or the limited use/user/function 
application (Producer Control Console - PCC) provided on the 

10 attached compact disc. In either case, the present invention 
facilitates a client-server application environment that includes, 
among other things, a user interface that is pleasing to users and 
which permits easy and ready access to system functions and 
operations. Such a user interface may be a graphical user 

15 interface or GUI that is configured to permit a user to engage in 
window-operations to bring about database operations that affect 
fuel deal data and the like in accordance with the present 
invention. Such a GUI is illustrated by way of screen shots 
(images of computer monitor screens) that are used to permit 

20 generation of, manipulation of, reporting of , and all other system 
operations relating to fuel deals and corresponding fuel deal data. 

For example, reference is now made to FIGS. 4A-4Q which 
illustrate a data processing application running within a client 
system to facilitate at least some of the operations carried out to 

25 effect the business process illustrated in FIG. 1. FIG. 1, for 
example, represents an opening main menu screen through which 
a user may select "PERSONAL" operations related to setting up a 
personal profile to affect user-preferred presentation of data (e.g., 
name, screen colors, etc.). Additionally, a user may select 

30 "PRICE-INDEX" to affect fuel pricing and index related data. A 
user may select "COMPANY" to control lists of producers, and 
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other related company entities. A user may select other options 
corresponding to the steps involved and described with regard to 
the MONTH OF FLOW PROCESS illustrated and described with 
reference to FIG. 1. 
5 The other screen shots shown in FIGS. 4B-4Q further 

illustrate specific features of the GUI that has been designed to 
facilitate the implementation of the systems and methods provided 
by the present invention. For the purpose brevity, further detailed 
comments related to such screen shots has been omitted. 

10 

SYSTEM IMPLEMENTATION AND FUNCTIONALITY 

As noted above, the present invention utilizes stored 
procedures in the form of database management system 
procedures and functions which are executed server-side and 

15 client-side to facilitate the present invention's systems and 
methods. Listed in the following tables, is a detailed break-down 
of all the stored procedures, tools, and modules used to facilitate 
such systems and methods. The actual source code and 
instructions contained with in such procedures, functions, and 

20 modules is contained on the attached compact disc. 

STORED PROCEDURES 

Below is an inventory of the various database-stored 
procedures (procedures and functions) that are utilized by the 

25 systems and methods provided by the present invention. Each of 
the stored procedures and functions are written in the Transact- 
SQL dialect. All of the stored procedures are prefixed with "uspj' 
which stands for "User Stored Procedure." This provides an 
ability to differentiate those procedures bundled with the DBMS 

30 versus those created for the systems and methods provided by 
the present invention: 
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Stored Procedures 

Below is an inventory of the various database-stored procedures (procedures and functions) that are utilized by 
the Energy Management System. Each of these stored procedures and functions are written in the Transact-SQL 
dialect All of the stored procedures are prefixed with tt usp J which stands for "User Stored Procedure". This 
provides an ability to differentiate those bundled with the DBMS versus those specifically created for the EMS 
application. 



Ref# 


Stored Procedure Name 


Description/Comments --v, 


1.0 


UspJDaiiyCIeanup 


This procedure is run everyday and is responsible for any cleanup activities (like 
roiling aqed messages off theAppiicationMessages table). 


2.0 


UspJGetCaicindex 


Retneves the weighted average pnce for a given volume item. This routine is 
invoked during the WASP caicuiation in order to obtain the price for the 
meter/well and post it to the Engine database table. 


3.0 


UspJGetlndex 


Retrieves the daily or monthly pnce index for a given day. Used during the 
pricing caicuiation routine. 


4.0 


UspJGetindexSasket 


Retrieves and calculates the index amounts for the pnce lines whenever an 
index basket price variable has been entered. This particular function wiil return 
the average price (simple average) of aii indices within the basket for a given 
month/day. 


5.0 


UspJGetNetbackPercentage 


This function will return the actual netback percentage to be used for a given 
production month and contract When it calculates the netback it looks at 
volumes and tier instructions that have been setup on the contract The number 
it returns is the netback percentage to utilize. In addition, this routine brings 
back the specific percentage to use for the product being calculated (gas, 
liquids, oil, eta). 



™3li? 



23A 



Ref # 


Stored Procedure Name 


ucau ipuui uwUii mioi ilss 


6.0 


UspJGetProdlnterestlD 


This routine brings back the production interest information fore particular 
ownership interest. — 


7.0 


Usd fGetProdPka 


i nis procedure unngs D3CK ine ueai ia (it one aireaay oAioia/ wnen posiing 
volumes through the 'Availability' screens, if a deal does not already exist (in the 
current production month) then a new deal is created and that 10 is sent back. 


8.0 


UspJGetWASPindicator 


This function accepts a deal id (package 10) as it's input, it then reads the 
ucciiojciss laoie ana ine rusaiwiass lauic^aj io ucieiiiwie » una fjomcuiai ueai 
should be considered WASPabie based on its classification scheme. The return 
values are either 'None', 'Common' or 'Dedicated'. 


9.0 


Usd fGetWasoTvoe 


< his proceoure win senu oacn. ine vvnor type iieiu ^uao, wjl. or uwuiuo/ wnen 
passed a specific product ID. This procedure is used during the calculation in 

Orri Ar tn rlatormtno u/hir*h cot nf nptbsck n\if**x riff s r*Qntrart tr* i tco 


10.0 


UspJlsLastDay 


This procedure accepts a date and sends back the last date in a production 
month 

* * *W< III (• 


11.0 : UspJLastDay 


This procedure accepts a date and sends back the last date in a production 
month 

• ' *wl 111 i. 


12.0 i UspJPipeContactinfo 


This n rnr^ri i iro uuhon nsccAH a ninf*/flpid id will QPnri hack thft cnartfir rnntart 1 

* mo fJJUMSUUIC. WIlCll ^lOddCU Ct pjpGTIJCSIU IVJ, Will dCIJU UdU\ MIC afJCUiiU COiliaU 

information requested (like accounting contact volume contact etc). 


13.0 ; Usp GasDayToGasMonth 


This function will return the production month to use for a given production dav. 


14.0 


UspJ3etProductVoiumeRound 


i nis routine win return tne rounaing precision necessary wnen calculating 
volume information for specify products (Oil calculates to 2 decimal places, Gas 


15.0 j UspJJnePrice 


This ts the actual procedure that will calculate the Engine records for a given 
deal (volume related ST1D 8 or 9 type records). 


16.0 


Usp^message 

P 


This routine handles ail of the 'progress' messages that are issued dunng the 
calculation, rollover, actualization, ana etc; type events on tne system, i nis 
iwuune win optionally posx in is iniurrnauun xo ms /ippiibauunivieaaagcs laoit? iui 
histoncal reference (audit). 


17.0 r3Jsp_pActua!?ze BaiPurchases 


This is the main driver routine for Step 2 of 4 of the actualization process. 


18.0 j^spjpActuaiize^BalPurchasesCheck 

t 


This routine will check to see if all of the meters/weils on a given pipe/field have 
ueen actualized* If not tnen it ssnos oacx a oaa rexum coae. am meiers/wens 
are required to be 'checked* (actualized) prior to balancing of purchase routing 
points 


1 9.0 HJspjActuaiize^SaiPurchasesCIaar 

I 


This routine is the actual routine that will adjust all purchase meter imbalances. 
» f icse imoaiances are aojusieu Torwaru i nnuuun ine sates point uaseu on 
nomination routing instructions (used as a map). 


20.0 HJsp _pActuaiize BaiSales 


This is the mam driver routine for Step 3 of 4 of the actualization process. 


21.0 Kifsp j3Actuaiize_BalSaiesCheck 


This routine will check to see if alt of the purchase meters/wells routing balances 
^jiam step z ot 4) are oatanceo. ir any meier/wen on ine pipe/neiu is out ot 
balance then this routine sends back a bad return code. All meters/weils on the 
pipe/fieid are required to be 'balanced* prior to balancing of the sales points. 


22.0 


-jJsp _pActualize_BaiSaiesClear 


t nis proceoure is tne final proceoure invoKea uy me usp p/\ctuaige taaioaies 
main driver procedure. It is responsible for posting imbalance amounts to the 
internal clearing purchase or sales deals. 


23.0 


Usp _pActuaiize_BaiSalesOver 


■ nis proceoure attempts to reconcile any ousianaing oaiances max resuic in 
OVER supplying of volume to a particular sale. Nomination information is used 
by this routine as a "road map' on how to allocate this volume. 


24.0 


Usp_pActuaiize^BalSaiesUnder 


i ms proceoure attempts to reconcile any ouisionuing uaiances mai result in 
UNDER supplying of volume to a particular sale. Nomination information is used 
by this routine as a 'road map 1 on how to allocate this volume. 


25.0 


Usp_pFilIlndex 


i ins proceoure win initialize tne recoius wnnin me owinuex iaoie wnn oauy 
entries (for daily indices) and monthly entries (for monthly indices). The monthly 
( °w*a e runes are oniy on ine nrst a ay or ine monin. 


26.0 


Usp_pFtilJndexSingie 


This procedure will populate the GClndex' table with a price index entry for a 


27.0 


UspjGasinvD_Rli 


This routine initially populates the daily volumes on the GasinvO table. These 
are initially populated with zeros (anytime a meter/well is added to a deal). 


28.0 


Usp_pGasinvD_Nom£OM 


i nis rouune is used in the Avaitaoutty area ot ine cs/to system ana is usee to 
loivts a yiven volume amount ana prup«y««* uicil vuiutiio oinuutii iu an uays in 
the month. 


29.0 | Usp .LogAuditinfo 


This routine is used to post record to the audit table within the system. 


30.0 


Usp_pPackageRevision 


This routine is used to increment the revision number field on the deal. Certain 
types of changes to a deal will automatically increment the revision number on a 
deal and this update is done through this routine. 
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Ref#. 


Stored Procedure Name 


Description/Comments^ 




Usp_pPostCIassrficationRules 


This procedure is executed (usually by triggers on the rOeaiCfass ana 
rOeaiClassA tables), it can be executed stand-alone. This procedure wiif 
ensure that a record is created in the rOeaiCIassRuies table for every 
combination of deal classification codes (dcA values on the rOeaiClassA table). 


32.0 


Usp_ProdPush 


This routine is used in the 'Availability* phase of EMS and is used to initially 
populate a particular month with ownership interest information, by meter/well. 


33.0 


UspjpPushMeter 


. This.routine is used in the 'Availability 1 phase of EMS and is used to populate a 
single meter/well ownership interest to its respective deal (package) and volume 
inventory item (Gaslnv/GasfnvD). 


34.0 


Usp_pRoute8uiidLegHistory 


This routine creates the 'Leg' records for a given meter/weil. When a new route' 
(LegRef) is defined on the system then this routine will get invoked to initially 
seed the 'Leg' table with entries in order to allow routing. 


35.0 


Usp_pRouteBuiidLegHistoryAII 


This routine gets invoked when a production month is initially opened to the 
'Sales' phase. All ACTIVE meters and legs will have their respective Leg' table 
records populated for that production month by this routine. 


wO.U 


Usp_pRouteCopyLegHistoryActuais 


This routine gets invoked when the status of a production month changes from 
'Sales' to 'Invoiced'. All nomination routine instructions (in the 'LegDetatl' table) 
are then copied by this routine. This provides the mechanism to have actuals 
different than noms while preserving the nom instructions. 


Of .VJ 


Usp_pRoutePostChange 


This procedure gets invoked whenever a change to a specific route is requested 
(i.e. modifications of volumes between hops). 


oo.u 


Usp_pRoutePostDea )l nf o 


This procedure gets invoked to 'seed' the LegOetaii' table with routing 
information. This is invoked when new meters/wells are added to deals. 




Usp_j3RoutePostDea(lnfoVois 


This procedure gets invoked to populate the specific volumes on each of the 
'LegOetaii' entries (daily) for deal inventory items. 


40.0 


JJsp_pRoutePostDelete 


This procedure gets invoked whenever a deletion is requested on the routing 
(LegOetaii) information. 


41.0 


MJsp_pRoutePostLegRates 

K? 1 


This procedure gets invoked in order to post the rates (fuel, pvr, transport 
gathering, etc) to each of the 'LegOetaii* records in the database. Daily rates 
(LegO table) overrides monthly rates (Leg table) and this procedure ensures that 
pnonty. If a rate gets changed for a leg this routine gets invoked to update ail 
existing routes (LegOetaii) records. 


a*} n 


.Usp^pRoutePostSaie 


This procedure gets invoked in order to post volume (route it) to a sales item (in 
the LegOetaii table). 


40.U 


[Usp_pRoutePostTransport 


This procedure gets invoked in order to post volume (route tt) to a transportation 
point (in the LegOetaii table). 




JJsp_j3RouteRemovetegOetaiis 


This routine will remove any/all 'LegOetaii* (routing instructions) when a 
meter/well for a specific deal is removed. 


45.0 


JUsp j3SERPTj3etAdditionaiReportlnfo 


This routine is used by all of the 'standard reporting procedures to obtain 
specific report fields needed when running a standard report 


46.0 


^JspjDSERPTJ^ostReportToCorrespondence 


This routine will post a 'PackageCorrespondence' table record to a particular 
deai that is affected by the 'standard* report being run. This routine is called by 
ail standard report routines. 


J7 ft 

4/ .U 


il3p_pSERPT_PostReportToDistribution 


This routine will post a report distribution request to the SERptsQueueQistnbute 
table. Thisisertherareouestto'PRlNTER'/BAWL'or'FAX*. 


4ft O 


u3p H j3oer(r' i ^rosuxepon i ouueue 


This routine is used by all of the standard report routines and will post an actual 
report request (queue item) to the SERptsGueue table. 


49.0 


u3p_j3ocr\r l i — KunKeportAvaiiwonTirms 


This routine is responsible for running the 'Availability' confirm reports. 


so n 


u5p_pocr(r f I _KunKeportAvaiicsumaies 


This routine is responsible for running the 'Availability' estimate reports. 


51 0 


uspjotsKr' r^KunKeponueaiuonnrrn 


This routine is responsible for running the deal confirmation reports (from the 
deal detail screen on EMS). 


52.0 


Usp_pSERPTJRunReporttnvoice 


This routine is responsible for running ail standard invoice reports. 


53 0 


usp_pocr\r I _Kunneponnemiuance 


This routine is responsible for running all standard remittance reports. 


54.0 


Usp_pSERPT_RunReportVoucher 


This routine is responsible for running all standard voucher reports. 


03, U 


Usp_pSERPT_SetAParameterBooiean 


This routine is used by the standard reporting routines and converts Sooiean 
parameters for posting on the report queue (SERptsQueue) table. 


oo.u 


UspjStRPTJSetAParanieterOate 


This routine is used by the standard reporting routines and converts date and 
date/time parameters for posting on the report queue (SERptsQueue) table. 


O/.U 


Usp_pSERPT_SetAParameterOeamal 


This routine is used by the standard reporting routines and converts decimal 
(number) parameters for posting on the report queue (SERptsQueue) table. 


58.0 


Lisa nSPRPT ^PtAPararrtftterinteaar % 


i ms routine is usee oy the standaro reporting routines anu converts integer 
number parameters for posting on the report queue (SERptsQueue) table. 


59.0 


UspjpSERPTjSetAParameterString 


This routine is used by the standard reporting routines and converts string 
parameters for posting on the report aueue (SERptsQueue) table. 
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Ref#~! Stored Procedure Name 


Description/Comments - 


60.0 


Usp ^SERPTJ/VhichReport 


This routine ts used by the standard reporting routines and is-responsible for 
determining WHICH report to use. The default reports are in JCreportOefaults 
table. However, any given contract can overnde the default (KreportOvemdes 
table). 


61.0 


Usp^PSFrice 


This is the main pricing routine for the volume inventory items (regular 
purchases and sales). 


62.0 


Usp_PSPriceAII 


This is the main procedure for calculating the pnces for a given month on a set 
of deals (volume inventory pricing, STID 8 & 9). Parameters to this stored 
procedure dictate the type of price to calculation (Norn or Pipe/Field Actual and 
Sales versus Purchase, etc.). 


63.0 


Usp_PSPriceAnyNewinvoicesNeeded 


This routine is responsible for assigning new invoice and remittance numbers to 
the volume inventory table (Gasinv). If new meters/weils (volume entries) get 
entered during the actualization process then this routine wiii ensure they are 
assigned unique numbers. 


64.0 


Usp^PSFriceAssignlnvoiceNo 


This routine assigns invoice numbers to all sales deals when the production 
month is promoted to the Invoiced* phase. 


65.0 


Usp^PSPriceAuto 


This procedure run everyday and checks for any production month either in the 
'Sales' or the 'Invoiced' phase. If any production months are within these 
phases then this procedure wiii invoke the calculation routine 
(usp_j3sPriceAutoMonth) for them. 


66.0 


Usp_PSPriceAutoMonth 


This is the main driver routine for the calculation of an entire month. 


67.Q 


Usp.PSPriceComponentsCheck 


This procedure will automatically insert system generated pnce components (tike 
WASP or Netback Percentage) to the EngineJAaster table. It is invoked by the 
usp PSPricei procedure when calculating prices on a deal for a given month. 


68.0 


Usp^PSPriceCost 


This is the routine that calculates the 'Other Cost entries and posts calculated 
results in the Engine table. 


69.0 


pJJsp^PSPriceCostAli 


This is the main driver routine for looping through all of the 'Other Costs' in a 
given month and invoking the usp PSPriceCost routine for each one. 


70.0 1 


yUsp^SPriceCreateActualEntnes 


This procedure copies the pricing entries setup on each deal 
(Engine MasterPrice) from nomto actuals. 


71.0 i 


: :Usp_PSPriceMarkActualAdjustments 


This procedure gets invoked by the calculation routine to mark any volume 
inventory item (Gasinv) whenever a difference is detected between nominations 
and actuals. 


72.0 1 


sJUsp^PSPricePopulateEngine 


This procedure wiii populate the Engine table. FROM the Engine JMaster table. 
For daily index price entries this procedure wiii automatically propagate the daily 
index price to ail days of the month where there is a volume (at least until a new 
pricing entry is found). Only volume entries are populated here (STID 8 & 9). 


73.0 I 


„JJsp_PSPriceTransportAII 


This routine calculates ail of the transport costs for a given production month. 
These transport costs (and volumes) are posted in the Gasinv (pricetype»3) 
table and deals are posted (if needed). These deals are tagged with the specific 
transport contract 


74.0 ; 


SUspJ^PriceWASPCaic 


Determines and resolves ail wasp 'Common' and 'Dedicated' poois. Dedicated 
pools are sanctioned sales* This is the main driver procedure for the wasp 
portion of the calculation. Third party (pool - 'None') are also processed within 
this procedure but not for the intent of obtaining a price for them, totals used 
primarily for profit margin reporting. 


75.0 1 


Usp_PSPriceWASPCaicResotveDriver 


This ts the main driver component for driving the WASP calculation. 


76.0 


Usp.PSPriceWASPCaicResotveN 


Traces back sales totals from all sates meters back to their originating purchase 
points. The table updated here is the WASPResoivedRouting table. The 
'LegDetaiF table is used extensively in this calculation. This is a highly 
ITERATIVE process. 


77.0 


Usp^PSPriceWASPCaicResotveSaiesN 


This procedure creates the entries in the WASPResoivedRouting table and 
posts original sales volumes and amounts. This is done just prior to the routine 
that resolves these sales totals back to the purchase points. 


78.0 


UspJ^SPriceWASPCalcSaiesN 


Sums all WASPable sates by sales meter into the WASPSaiesMeterTotais table. 


79.0 


Usp^PSPriceWASPCIearMonth 


This routine runs when a production month is promoted to 'Completed' phase. 
Any volume inventory items (Gasinv and/or GaslnvD) or routing items 
(LegDetaii) that contain zeros are removed so that onty relevant information is 
stored in the database for historical purposes. 


80.0 


Usp^PSPriceWaspDivieOutProceedsN 


This procedure is the main procedure that will distribute the proceeds from those 
deals that have been designated to have their respective proceeds distributed 
via the 'Financial Overrides' setup on the deal. 


81.0 


Usp^ProdVolSet 


This routine is used in the 'Availability* phase to setup the ownership interest on 
a particular pipe/field and meter. ProdSum and ProdVol tables for the current 
production month are populated with this procedure. 
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Ref# 


Stored Procedure Name 


Description/Comments — 


82.0 


Usp.ProdVoiSetAfl 


This routine is used in the 'Availability' phase to setup the ownership interest on 
ail pipe/fields and meters. This routine invokes the usp.ProdVoiSet routine for 
each meter/weil in the loop. 


83.0 


Usp_PSRoilover 


This routine gets invoked when a production month goes from 'Availability' to 
'Sales' and is responsible for copying deal information month-to-month. 


84.0 


Usp_PSRoiioverPopActuals3 


This routine gets invoked by the usp_PSRoilover routine and is responsible for 
populating noms with previous 3 months actuals numbers (pnmaniy used for 
Oil). 


85.0 


Usp_PSRotioverPopNoms 


This routine gets invoked by the usp__PSRoiiover routine and is responsible for 
populating noms with previous months nom numbers. 


86.0 


Usp_pStatusChanged 


This routine gets invoked anytime the production month status is changed 
(Initiai.Avaiiability ) Saies,lnvoiced ,Accounting t Compieted). Other routines are 
invoked depending on the from and to status for the production month. 


87.0 


Usp_w. # 


Any stored procedure that begins with Uspjv_ has been setup as a one time 
oniy procedure that is used to correct any database items/etc. These 
procedures can be permanently deleted and have no impact on existing 
functions within EMS. 



Application Software 



Technical Skill Set Required 



Su PPp£t and maintenance of the Energy Management System requires the following technical skill set 



Ref# Y Skill Set 


Used For... 


1.0 dl SQL-Server (Transact SQL) 


All data is stored in MS SQL-Server database tables. This data ts accessed via direct SQL 
statements (embedded in windows applications, stored procedures and reports). There are 
several database views that have been setup to access aggregated information (for performance 
and consistency), in addition ail of the critical calculations and time consuming procedures (like 
the main EMS calculation, routing and rollover process) are written as Transact-SQL stored 
procedures (and documented in this manual). 


2.0 , 


gDelphi 0/5 +) 

(includes Delphi 3" party tools) 


All client applications are written using this particular RAO toot.' In addition to knowing the 
standard components that come with this tool, any of the 3" party tools (documented in this 
manual) are used extensively. See the 3 m party tools listed in the Tools Utilized* section for more 
details. 


3.0 I 


MCrystal Reports 0/8.0) 


All reporting within EMS is done utiiizinq this tool from Seagate software. 





Cliekti Server Applications w/Tools Utilized 



This particular section contains the high level documentation relative to the Energy Management System software 
application. Each item documented is uniquely numbered to aid in reviews and/or future modifications. 



Ref# 


Item 


Response 


Comments 


1.0 


Client Application 


Energy Management 
System 


The Energy Management System is written in Oeiphi 5 
(service pack 3 applied). Third party controls and 
components were used in the development See other 
areas of this matrix for 3* party toots utilized. 


2.0 


Client Application 


Producer Control 
Center 


The Producer Control Center ts written in Oeiphi 5 (service 
pack 3 applied). Third party controls and components were 
used in the development. See other areas of this matrix for 
3* party tools utilized. This application provides a restricted 
view of information specific to the company/contact that is 
running the application. The data viewed is the same data 
that is maintained in the EMS system. 


3.0 


Server Application 


Software Experts, inc. 
SECrystai (V8.00) 


All reporting done within EMS utilizes Crystal reports. This 
server application runs and stores all output reports for the 
system. Besides storing an electronic copy of the report, 
this server can distribute to a printer, fax folder OR an email 
address if instructed by the EMS application. 


4.0 


Server Application 


Software Experts, inc. 
SEFax (V2.00) 
(outbound faxino) 


Some output reports (from SECrystai) are designated to be 
faxed. This software is responsible for faxing ail of the 
reports that were designated by EMS to be faxed. 
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Ref* 


Item* 


Response 


Comments: — 


5.0 


vjci vci ii\^aii\jn 


Software Experts, inc. 
SEServer (VZOOg) 
(database request server) 


All database requests for the Energy Management System 
AND the Producer Control Center go through this database 
server component This server application typically runs on 
the same machine as the actual database. 


6.0 


3'° Party Tool/Library 


Adobe 

Acmhat PoaWar am n x\ 
nwuual r\cduer ^VA.U 


This free tool is used to view reports from EMS. The default 
ror an reports is to pnnt in em to a rur rormaL i nis ouipui 
format is 'overrideable' by the user when the report is 
submitted. Other formats like Excel, Word, Text, etc are 
also supported. 


7.0 


3™ Party Toot/Library 


Seanstc* ^nfhAiam 

Crystal Reports (V8.00) 


All reports are written using the Crystal reporting tool from 
Seagate Software). In addition, the report server 
iwcurysiai; utilizes me mam orystai reporting rntt runtime 
libranes to run these reports for ail EMS client reauests. 


80 


3"* Party Tool/Library 


Dalco Technologies 
DbOvernet (V2..00) 


Delphi VCL components that provide internet (TCP/IP) 
access. The SEServer application utilizes this middleware. 


9.0 


3* a Party Tooi/Library 


Asynch Pro (V3.04) 


The SEFax fax server application utilizes this 3 W party 
Delphi VCL component fist for sending and/receiving faxes. 
The SECrysta! reporting server application uses this library 
to write out fax ready' files. 


10.0 


3 m Parrv Tool/Libra rv 


i uj uuruwer oorcware 
Orpheus (V3.08) 


Many of the online screens for ail client and server 
applications utilize the Orpheus controls for screen grid lists, 
combo boxes, eta The server applications were written with 


11.0 


3 ,u Party Toot/Library 


TurboPower Software 
SysToois (V3.02) 


Many of the online screens for all client and server 
applications utilize the SysToois components for string 
manipulations, spawning tasks, eta 


12.0 4 




wouzwoil Software 
lnfoPower2000.17 


Many of the online screens for all client and server 
applications utilize these controls for screen grid lists, 
combo boxes, eta The server applications were written with 
this tool set also. 


13.0 IT 


f3 ,w Party Tool/Library 


Inner Media.Software 
Dynazip (V4.00) 


These are Delphi software components that are for 
compression/decompression of files to and torn the server. 


14.0 ¥ 


!3 ,u Party Tool/Library 


Public Domain 
TEmail(V2.10) 


This is a Delphi software component and is used by the 
client and server applications. It is responsible for the email 
interface. 


V 15.0 J 


|3'° Party Tool/Library 


TMS Software 
TwebUpdate(V1.00) 


This is a Delphi software component that provides for 'over 
the internet 1 automatic software upgrades. The client 
applications each utilize this component 


16.0 f 


h i9 Party Tooi/Library 


Skyline Software, Ina 
ImageLib Suite (V5.00) 


These are Delphi software components that provide for 
graphic images displayed within the application, tn addition, 
this software provides scanner input capabilities. 



CuEm Applications, Module List/Descriptions 



This particular section contains the high level documentation relative to each software application module within 
the Energy Management System. Each item documented is uniquely numbered to aid in reviews and/or future 
modifications. The application reference listed below will either indicate EMS (Energy Management System) 
and/or PCC (Producer Control Center). This shows the level of interoperability between these two client 
applications. AH of these modules are written in Delphi (Object Pascal, (Visual)). 





! Module Name 


Module Type 


Application 


Description/Comments^ 


1.0 


DBAddress 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the Address ('Company and Contact 
Addresses') table. 


2.0 


DBCommonOatabase 


Data Module 


EMS 
PCC 


This module is responsible for setting ail of the common 
properties for all other data modules within the system. 
Prior to invoking a query, ail other database modules will 
invoke methods within this module to set communication 
ports, maximum number of records, eta This module also 
stores the actual user id and contains methods for 
accessing this field. 
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Module Name 


Module Type 


Application 


Description/Comments — 


3.0 


DBCommonFileOperations 


Data Module 


EMS 
PCC 


This module handles all of the 'flat fiie'-operations 
(compressing/decompressing/etc.) thatls involved with the 
applications. Any temporary files that need to be created 
are also controlled by this data module. 


4.0 


DBCompany 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the Company ('Company information') 
table. 


5.0 


DBContactFunction 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the ContactFunction ('Roles within their 
respective companies that contacts play") table. 


6.0 


OBContaas 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the Contacts (Individual contacts within 
companies') table. 


7.0 


OBContactGroup 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the ContactGroup (Links contacts to 
groups they may be affiliated with) table. 


8.0 


DBContactJSroupNames 


Data Module 


EMS 


This module contains ail of the database communication 
components for the Contact J3roupNames (table contains 
a record for each grouo within the system) table 


9.0 


DBEngine 


Data Moaule 


EMS 


This module contains ail of the database communication 
components for the Engine (contains transaction records 
for each volume inventory transaction item associated with 
the deal) table. 


10.0 


DBEngine_Master 


Data Module 


EMS 


This module contains all of the database communication 
components for the Pfinina Master (User enterabla nricina 
area 'header* record) table. 


11.0 , 


i DBEngineJWasterPrice 


Data Module 


EMS 


This module contains ait of the database communication 
components for the Engine^ MastenPrice (User enterable 
pricing area 'detail* recordsTpnce tags)) table. 


12.Q ^ DBEngine JTransactionUst 


Data Module 


EMS 


This module contains ail of the database communication 
components for the EngineJTransactionUst (transaction 
descriptions) table. 


13.0 ^OBExceptionCategones 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the ExceptionCategories ('Reasons for 
Exceptions') table. 


14.0 ^DBExceptionList 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the ExceptionUst ('Actual Exception 
Events) table. 


15.0 |pBGasinv 


Data Module 


EMS 


This module contains ail of the database communication 
components for the Gasinv (Volume inventory 'header*) 
table. 


16.0 |iDBGasinvO 


Data Module 


EMS 


This module contains all of the database communication 
components for the GaslnvD (Volume inventory Daily 
'detail') table. 


17.0 


DBGCButton 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the GCButton ('Business Functions') 
security table. 


18.0 


DBGCtndex 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the GCZndex (Daily & Monthly Price 
Indices) table. 


19.0 


DBGCSecurity 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the GCSecuritv (Security Authorizations) 
for the applications. 


20.0 " 


DBGCUser 


Data Module 


EMS 
PCC 


This module contains alt of the database communication 
components for the GCUser (User Profiles) table within the 
applications. 


21.0 " 


DBImages 


Data Module 


EMS 


This module contains ail of the database communication 
components for the SOmaoes (comoanv loans etc* table 
within the application. 


21.0 


DBIndexBasketUnk 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the IndexSasketLink (Links actual indices 
to a particular basket) table within the application. 


22.0 " 


DBlndexBaskets 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the indexBaskets (Grouping of indices to 
be used in a 'simple' averaging calculation) table within the 
application. 
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Ref#: 


Module Name 


Module Type 


Application I Description/Comments 




23.0 


DBintiexRef 


Data Module 


EMS 
PCC 


This module contains all of the database-communicaaon 
components for the indexRef (Each pnce index within the 
cue torn fmntsiins a rft/*nni »ntn/ here) table, within the 

application. 




24.0 


DBK 


Data Module 


EMS 


This module contains all of the database communication 

rnmnnnontc fnr thft K rf^ontracts table within thp 

application). 




25.0 


DBKNetBacK j Data MoauJe 

i 
I 


EMS 


This module contains ail of the database communication 

enmnnnpnts for the KNetBack /Contracts Npthark 
Percentage Tiers) table within the application. 


26.0 


DBKNotes | Data Module 

! 
i 


EMS 


This module contains ait of the database communication 
eomnonents for the K Notes {Contract Notp^t tahlp within 
the application. 




27.0 


DBKProducts j Data Module 

i 

i 


EMS 


This module contains ail of the database communication 

rnmnnnontc fnr thft KPmriiiffta /nmrittp+e thaf «n ^tiadahJo 

coniporicnib »u* uits rvnuuuwia \|j(uuuu*> inst are avaiiauis 
within contracts) table within the application. 




28.0 


DBKReportOefauits j Data Module 

I 
i 


EMS 


This module contains all of the database communication 
components tor ine fvrteporiueiauns {stanoaro report 
defaults) table within the application. 




29.0 


DBKReponOvemdes 


Data Module 


EMS 


This module contains ait of the database communication 
components Tor ine ivrtepoiiwvemues (standard report 
overrides for a contract) table within the application. 


30.0 


DBKServices 


Data Module 


EMS 


This module contains ail of the database communication 
components tor tne tvoep/ices ^services tnat are avaitaoie 
within contracts) table within the application. 


31.0 i DBLeg 


Data Module 


EMS 


This module contains all of the database communication 
components tor tne Leg (avauaoie routes ana rates tor tne 
production month) table within the application. 




32.0 ; 


I DBLegD 


Data Module 


EMS 


This module contains ail of the database communication 
components for the LegD (available DAILY routes and 


33.0 0 

f 

E 


1 DBLegOetail 

i 

5 


Data Module 


EMS 


This module contains all of the database communication 
components for the LegOetail (specific routing instructions 
Tor an volumes puroiaseu ana suiu/ looie wnnin tne 
application. 


34.0 y 


JDBLegRef 


Data Module 


EMS 


This module contains all of the database communication 
components lor ins Ltsgrctsi ^masier ikh ui rauics anu roicaj 

table within the application. 


35.0 % 


rDBLocations 


Data Module 


EMS 


This module contains all of the database communication 
componsnts tor wCLwcauons ^iut#auut ta ) lawis wiuiin ine 

application. 


36.0 f 


IDBMessages 


uata Module 


CMC 
CSVJO 

PCC 


1 niS mOUUItJ i*wniclliia oil u» uiw uaiouaae \#utiiiituiiiMauui i 

components for the SEMessages (system messages) table 
within the application. 


37.0 * 


DBMeter 


Data Module 


CMC 


This mrv^tilA /?nntainj* ait frf f ha ciatshasB cnrnmtintfialinn 

components for the Meter/Well table within the application. 


38.0 


DBMeterAliocations 


Data Module 


EMS 


This module contains all of the database communication 

mmnnnonta fnr thn MfttfirAllncations f own Aran in mtprpqtg 

in volume from a meter/well) table within the application. 


39.0 


DBMetenMotes 


Data Module 


EMS 


This module contains all of the database communication 

mmnMwnta fnr thft Mftt&rMotfts table within th a 

CUlTTpUriC7llLS> IUJ UIO IV1BICT HWica lOUlU VYIUtlll UICJ 

application. 


40.0 


DBMeterRates 


Data Module 


EMS 


This module contains all of the database communication 
components Tor ine ivietemauss \pi essure uase t diu lactort 
etc from a meter/well) table within the application. 


41.0 " 


DBMiscQueries 


Data Module 


EMS 


this module contains ail of the miscellaneous queries that 
were createo to enaoie views or various taoies wttnin tne 
application. 


42.0 


DBPackage 


Data Module 


EMS 


This module contains all of the database communication 
components for the Package (Deals) table within the 
application. 


43.0 


DBPackageCorrespondence 


Data Module 


EMS 


This module contains all of the database communication 
components for the PackageCorrespondence (electronic 
copies of documents associated with deals) table within 
the application. 
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Ref #■ 


Module Name 


Module Type 


Application 


Description/Comments - 




44.0 


DBPacKageCosts 


Data Module 


EMS 


This module contains all of the database-communication 
components for the PackageCosts ('Other Costs' 
associated with deals) table within the application. 




45.0 


DBPipeField 


Data Module 


EMS 


This module contains all of the database communication 
components for the PtpeFieid (Pipe/Field information) table 
within the application. 




46.0 


DBPriceCornponents 


Data Module 


EMS 


This module contains ail of the database communication 
components for the PriceComponents (tags to associate to 
each portion of a price) table within the application. 




47.0 


OBPriceDesc 


Data Module 


EMS 


This module contains ail of the database communication 
components for the PriceOesc (Deal free form pnce 
descnotion) table within the application. 




48.0 


DBPrinterDef 


Data Module 


EMS j This module contains all of the database communication 
I components for the PrinterOef (printer definitions) table 
| within the application. 


- 


1 49.0 


! DBProcessingCodes 


Data Module 


EMS 

DPP 


| This module contains ail of the database communication 
components for the SEProcessingCodes (reference code 
description) table within the application. 


j 


50.0 


DBProcessingCoaeTyes 


Data Module 


EMS 


This module contains ail of the database communication 
components for the SEProcessingCodeTypes (type codes 
that classify sets of reference codes) table within the 
application. 




51.0 j DBProducerMessage 

i 

I 


Data Module 


PCC 


This module contains ail of the database communication 
components for the ProducerMessage (dynamic messages 
posted to producers) table within the application. 


52.0 p| DBProdlnterest 


Data Module 


EMS 


This module contains all of the database communication 
comoonents for the Prodlnterest (Availability royalty 
interests) table within the application. 


53.0 l| DBProaPKG 


Data Module 


EMS 


This module contains ail of the database communication 
components for the ProdPKG (Availability deal ID to 
ProdVol cross reference) table within the application. 


54.0 OBProdSum 


Data Module 


EMS 


This module contains all of the database communication 
components for the ProdSum (Availability summary totals 
by meter/well) taoie wnnm tne application. 


55.0 DBProdVoi 


Data Module 


EMS 


This module contains all of the database communication 
components for the ProdVol (Availability detail owner 
interest toxais oy meter/weiij laoie wnnin me appncanon. 


56.0 *f DBrDeaiClass 

l 


Data Module 


EMS 


This module contains all of the database communication 
components for the rOeaiCIass (All of the available deal 
classifications) table within the application. 


57.0 fi 


* DBrOeaiCIassA 


Data Module 


EMS 


This module contains ail of the database communication 
components for the rDeaiCIassA (ail possible answers 
available to the deaf class rules (rOeaiCIass table)) table 

within the sonlicatton 

Will III) UI0 Qf/f IIMIUWIli 


56.0 


DBrOeaiClassRuies 


Data Module 


EMS 


This module contains alt of the database communication 
components for the rDeaiClassRuIes (all rules associated 
with every combination of deal classification) table within 
the application. 


59.0 


OBrGasMonth 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the rGasMontft (an entry exists here for 
every possible month within the system, with status 
information) table within the application. 


60.0 


OBRptsControt 


Data Module 


EMS 
PCC 


This module represents the main driver module for 
submitting reports. 


61.0 


DBRptsExecutedStats 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsExecutedStats (Execution 
statistics for reports) table within the application. 


62.0 


DBRptsGroupitems 


Data Module 


EMS 
PCC 


This module contains ait of the database communication 
components for the SERptsGroupitems (List of reports 
available within each tab/folder) table within the 
application. 


63.0 


DBRptsGroups 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsGroups (List of all tabs within 
each reporting foider) table within the application. 
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Ref# 


Module Name 


Module Type 


Application 


Description/Comments 


64.0 


DBRptsitemDetaii 


Data Module 


EMS 
PCC 


This module contains ail of the databasexommunicstion 
components for the SERptsitemDetaii JJJst of specific 
reports avaiiabie throughout ail folders and tabs) table 
within the application. 


65.0 


DBRptsitemParms 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsltemParms (List of aU report 
parameters avaiiabie to each specific report) table within 
the application. 


66.0 


DBRptsQueue 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsQueue (actual report 
submission Queue) table within the application 


67.0 


DBRptsQueueDistnbute 


Data Moaule 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsQueueDistribute (report 
distribution instructions area) table within the application 


68.0 


DBRptsQueueNotify 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsQueueNotify (report notification 
instructions area) table within the application 


69.0 


DBRptsScheduie 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsScheduie (report schedule 
definition area) table within the application. 


70.0 


DBRpisScheduiedReports 


Data Module 


EMS 
PCC 


i iiia tnuuuie lAJuiaii k> ait %ji ins uawuaaQ wi ■ u i tun icauon 

components for the SERptsScheduledReports (reports 
belonging to schedule definition area) table within the 
application. 


71.0 


DBRptsScheduieGroups 


Data Module 


EMS 
PCC 


Thic mnriitlo imntatn^ all frf thft rfa.ta.h9SB cqi in nun i cation 
■ ilia J I luUUio i«wilialfl«a all ui uio uoioucwo MJituiiuiiiuauwii 

components for the SERptsScheduieGroups (report 
schedule groups definition area) table within the 
application. 


72.0 ? 


UDBRptsScheduieUserGroups 


Data Module 


CMC 
dVJO 

PCC 


t niS mOQUie C0niaU15 oil Ul lilts UaiaDaatS rammunicauun 

components for the SERptsScheduiellserGroups (user fist 
belonging to a specific schedule group definition area) 
table within the application. 


73.0 


HDBRptsTablesUsed 


Data Module 


EMS 
PCC 


Thitt mrvttiiflt /*nntesinv all of fhn riatahssA finim i it i nireitift n 
I ilia f nuwUlB wtiuuini an wi uio uaiawaao wwimiiuiiiwauuii 

components for the SERptsTablesUsed (tables, views and 
stored procedures used by each report area) table within 
the application. 


74.0 


.PBStoreaProcedures 

"'U 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for accessing and invoking all stored 

n m roH 1 1 ro« anri fiinrfinn* fin thft SDOiicstinn Parih fif 
^iuucuuics emu luiiwuuna uii u*a apfjm^uuii* caui ui 

these procedures are setup as methods within this class 
and this particular class acts as a common wrapper for 
invokina these OB orocedures. 


75.0 


RTCrystaiDriverParseMemo 


Business Rules 


EMS 
PCC 


This module contains ail of the string parsing routines used 
to store reporting parameters, formulas and selection 
criteria 


76.0 


RTDBAddress 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
addresses (Address table) are within this particular 
module. 


77.0 


RTDBCompany 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
companies (Company table) are within this particular 

1 1 IwUUlwi 


78.0 


RTDBContactFunction 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
contact function fContactFunction table) are within this 
particular module. 


79.0 


RTDBContacts 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
contacts (contacts table) are within this particular module 


80.0 ~ 


RTDBContact^Group 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
contact group relationships (ContactGroup table) are within 
this o articular module. 


81.0 


RTDBContact - Groupiviames 


Business Rules 

>, " " 


EMS 


All business rules and edits associated with the application 
contact group names (Contact_GroupNames table) are 
within this particular module. 


82.0 


RTDBEngine 


Business Rules 


EMS 


All business rules and edits associated with the application 
engine pricing transaction (Engine table) are within this 
particular module. 
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Ref# 


Module Name 


Module Type 


Application 


Description/Comments 






k i Uotngine^ Master 


Business Ruies 


EMS 


All business ruies and edits associated with the application 
engine pricing entry (Engine_Master table) are within this 
particular module. 




84.0 


RTDBEngineJvlasterPrice 


Business Rules 


EMS 


Alt business ruies and edits associated with the application 
engine pricing components (w/price tags) entry 
(EngmeJvlasterPrice table) are within this particular 
module. 






RTDBEngine_ Transactioniist 


Business Rules 


EMS 


All business rules and edits associated with the application 
engine transaction master fist (EngineJTransactionUst 
table) are within this particular module. 




86.0 


k i Ubcxception Categories 


Business Rules 


EMS 
PCC 


All business ruies and edits associated with the application 
exception categories (ExceptionCategories table) are 
within this particular module. 




87.0 




Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
exception list (ExceptionList table) are within this particular 
1 module. 




88.0 


r\ i uooasinv 


Business Rules 


EMS 


All business rules and edits associated with the application 
volume inventory transaction header (Gasinv table) are 
within this particular module. 




89.0 


KiUBGasinvD | Business Rules 

i 


EMS 


All business ruies and edits associated with the application 
volume inventory transaction detail daily (GaslnvO table) 
are within this particular module. 


i 


90 n 


RTDBGCButton 


Business Ruies 


EMS 
PCC 


All business ruies and edits associated with the application 
business functions (GCButton table) are within this 
particular module. 


91 n 


gfTDBGCIndex 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
price indices (GCIndex table) are within this particular 
module. 




ifTDBGCSecunty 


Business Rules 


EMS 
PCC 


All business ruies and edits associated with the application 
security authorizations (GCSecurity table) are within this 


*>.U iflTDBGCUser 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
users (GCUser table) are within this particular module. 


94.0 


^RTDBlmages 


Business Ruies 


EMS 


All business rules and edits associated with the application 
graphic images (SElmages table) are within this particular 
module. 




RTDBinaexSasketUnk 


Business Ruies 


EMS 
PCC 


AH business rules and edits associated with the application 
index price basket link (IndexSasketUnk table) are within 
this particular module. 


36.0 


:HiD8Jndex6askets 


Business Rules 


EMS 
PCC 


AH business rules and edits associated with the application 
index price baskets (IndexBaskets table) are within this 
particular module. 


57.0 


jRTOBJndexRef 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
price index master list (IndexRef table) are within this 
particular module. 


58.0 


RTDBK 


Business Ruies 


EMS 


All business ruies and edits associated with the application 
contracts (K table) are within this particular module. 




RTDBKNetSack 


Business Rules 


EMS 


All business rules and edits associated with the application 
contract netback pricing tiers (KNetBack table) are within 
this particular module. 


00.0 


RTDBKNotes 


Business Ruies 


EMS 


All business ruies and edits associated with the application 
contract free form note area (KNotes table) are within this 
particular module. 


01. 0 


RTDBKProducts 


Business Ruies 


EMS 


All business ruies and edits associated with the application 
contract products area (KProducts table) are within this 
particular module. 


32.0 


RTDBKReportQefauits 


Business Ruies 


EMS 


All business ruies and edits associated with the application 
contract standard report defaults area (KReportDefaults 
table) are within this particular module. 


D3.0 


RTDBKReportOvemdes 


Business Rules 


EMS 


All business rules and edits associated with the application 
contract standard report overrides area (KReportOvemdes 
table) are within this particular module. 


34.0 


RTDBKServices 


Business Rules 


CMC 
CIVlO 


Mil ousiness ruies ana eaiis assoaaieo with the application 
contract services area (KServices table) are within this 
particular module. 
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Ref# 

105.0 


Module Name 
RTDBLeg 


Module Type 
Business Rules 


Application 
EMS 


Description/Comments- : - 

All business rules and edits associated .with the application 
leg (monthly) area (Leg table) are within this particular 
module. 


106.0 


RTDBLegO 


Business Rules 


EMS 


All business rules and edits associated with the application 
leg (daily) area (LegO table) are within this particular 
module. 


107.0 


RTDBLegDetaii 


Business Rules 


EMS 


All business rules and edits associated with the application 
leg detail (main routing) area (LegOetati table) are within 
this particular module. 


lUO.U 


RTDBLegRef 


Business RuJes 


EMS 


All business rules and edits associated with the application 
leg master list area (LegRef table) are within this particular 
module. 


mo n 


R i UbLocations 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
locations (SELocations table) are within this particular 
module. 


i iO.O 


R i usMessages 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
messages (SEMessages table) are within this particular 
module. 


111.0 


RTDBMeter 


Business Rules 


EMS 


All business rules and edits associated with the application 
meters (Meter table) are within this particular module. 


112.0 


RTDBMeterAilocations 


Business Rules 


EMS 


All business rules and edits associated with the application 
meter ownership allocations (MeterAllocations table) are 
within this particular module. 


113.0 


RTDBMeterNotes 


Business Rules 


EMS 


All business rules and edits associated with the application 
meter comment areas (MeterNotes table) are within this 
particular module. 




jRTDBMeterRates 


Business Rules 


EMS 


Alt business rules and edits associated with the application 
meter rate areas (MeterRates table) are within this 
particular module. 


"Tisiot 


fRTDBPiScage 


Business Rules 


EMS 


All business rules and edits associated with the application 
deals (Package table) are within this particular module. 


116.0 I 


riRTDBPackageCorrespondence 


Business Rules 


EMS 


' Alt business rules and edits associated with the application 
deal correspondence (PackageCorrespondence table) are 
within this particular module. 


117.0 1 


jRTDBPackageCosts 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal 'Other Costs' (PackageCosts table) are within this 
particular module. 


118.0 f 


^RTDBPipeFteid 


Business Rules 


EMS 


Alt business rules and edits associated with the application 
pipes/fields (PfpeReid table) are within this particular 
module. 


119.0 I 


;J*TDBPriceComponents 


Business Rules 


EMS 


All business rules and edits associated with the application 
price components (PriceComponents table) are within this 
particular module. 


120.0 


TRTDBPriceOesc 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal pricing tree form text area (PriceOesc table) are within 
this particular module. 


121.0 


RTDBPrinterOef 


Business Rules 


EMS 


All business rules and edits associated with the application 
printer definitions (PrinterOef table) are within this 
particular module. 


122.0 


RTD8ProcessingCodes 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
processing codes (SEProcessingCodes table) are within 
this particular module. 


123.0 


k i DSProcessmgCodeTypes 


Business Rules 


EMS 


All business rules and edits associated with the application 
processing code types (SEProcessingCodeTypes table) 
are within this particular module. 


124.0 

■1 *?c rt " 


RTDBProdinterest 


Business Rules 


EMS 


All business rules and edits associated with the application 
'Availability* royalty interests (Prodinterest table) are within 
this particular module. 


125.0 


RTDBProdPKG 


Business Rules 


EMS 


Alt business rules and edits associated with the application 
'Availability* deal to ProdVoi cross-reference (ProdPKG 
table) are within this particular module. 


126.0 


RTDBPrcdSum 


Business Rules 


EMS 


All business rules and edits associated with the application 
•Availability' monthly meter summary (ProdSum table) are 
within this particular module. 


127.0" " 


RTDBPrnriVnt 


ousiness Kuies 


EMS 


All business rules and edits associated with the application 
'Availability' monthly ownership volume (ProdVoi table) are 
within this particular module. 



23L 





Module Name 


Module Tyoe 


Application- 


Description/Comments u. ~ - 


128.0 


RTDBrOealCIass 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal classification options (rDeaiCIassztable) are within this 
particular module. 


129.0 


RTDBrDeaiCIassA 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal classification answers (rDeaiClassA table) are within 
this particular module. 


130.0 


RTDBrDealCJassRuies 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal classification wasp rules (rOealCIassRuies table) are 
within this particular module. 


131.0 


RTDBrGasMonth 


Business Rules 


EMS 
PCC 


AH business rules and edits associated with the application 
production month (rGasMonth table) are within this 
particular module. 


132.0 


RTDBRptsExecutedStats 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
execution statistics for reporting (SERptsExecutedSiats 
table) are within this particular module. 


133.0 


RTDBRptsGroupitems 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
tab items for reporting (SERptsGroupitems table) are 
within this particular module. 


134.0 


RTDBRptsGroups 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
tabs for reporting (SERptsGroups table) are within this 
particular module. 


135.0 


RTDBRptsitemOetail 


Business Rules 


EMS 
PCC 


All business rules and editsassoaated with the application 
report files used for reporting (SERptsitemOetaii table) are 
within this particular module. 


136.0 | RTDBRptsitemParms 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report file parameters used for reporting 


133.0 .J RTDBRptsQueue 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report submission queue used for reporting (SERptsQueue 
table) are within this particular module. 


I39.0y| RTDBRptsQueueOistnbute 


Business Rules 


EMS 
PCC 


All HnetriP«« niton anri o/irta associated with thA annit^atinn 

report queue distribution options used for reporting 
(SERptsQueueOistribute table) are within this particular 
module. 


140.0 i: 


j RTDBRptsQueueNotify 


Business Rules 


EMS 
PCC 


Alt business rules and edits associated with the snniicattsn 

report queue submission notifications used for reporting 
(SERptsQueueNotrfy table) are within this particular 
module 


141.0 5 


I RTDBRptsScheuule 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report schedules used for reporting (SERptsScheduie 
table) are within this particular module. 


142.0 f] 


R\ UBKpts^cneduiecKeports 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the aoolication 
report schedule actual reports used for reporting 
(SERptsScheduiedReports table) are within this particular 
module. 


143.0 


RTDBRptsScheduieGroups 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the aooiication 
report schedule groups used for reporting 
(SERptsScheduleGroups table) are within this particular 
module. 


144.0 


RTDBRptsscneduieUsertiroups 


Business Rules 


EMS 
PCC 


All business mies and edits associated with tha flnniieattnn 

report schedule users (in groups) used for reporting 
(SERptsScheduieUserGroups table) are within this 
particular module. 


145.0 


RTDBRptsTablesUsed 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report tables used for reporting (SERptsTablesllsed table) 
are within this particular module. 


146.0 


RTMessageStackCItent 


Business Rules 

■* ^ 


EMS 
PCC 


This particular module is responsible for maintaining the 
current list of messages that will be displayed to the user. 
This module will provide for the storing of up to SO 
messaaes /in memorv tables) in between enter hi ittnn nr 
mouse clicks. This provides for any/all error messages 
concerning a specific event to be displayed at once versus 
one at a time. 


147.0 


FmAbout 


i-orm 


EMS 
PCC 


This form provides descnptive information about the 
application (version number, copyright notice, email and 
website support links, etc). 
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| Module Name' 


Module Type 


Application' 


■ Description/Comments * ^^^:^r.^%■^,•:^/l.^^^v■■.-■•■-■^'■:-^■■ ■■- 


148.0 


FmActuaiizePurchases 


Form 


EMS 


This form provides the method for performing (Step 2 of 4) 
of the actualization process within EMS. 


148.0 


FmActuaiizeSaies 


Form 


EMS 


This form provides the method for performing (Step 3 of 4) 
of the actualization process within EMSL 


150.0 


FmAddressDetaii 


Form 


EMS 


This form provides for the updating of addresses for 
contacts and companies. The table that gets updated 
behind the scenes is the Address table. 


151.0 


FmAddressUst 


Form 


EMS 


This form provides a list of ail available addresses that 
have already been setup for a company. Options on this 
form include an ability to change, add or delete address 
lines from the list 


152.0 


FmBusinessFunctionsDetail 


Form 


EMS 


This form provides for the updating of the business 
functions that are available within the Energy Management 
System AND the Producer Control Center. The table that 
gets updated (behind the scenes) is the 'GCButton' table. 


153.0 j FmBusinessFunctionsList 


Form 


EMS 


This form provides a list of ail available business functions 
that are currently within the Energy Management System 
AND the Producer Control Center. Options exist here to 
aad, change and delete business functions. Eacn of these 
business functions represent areas within the application 
for setting system security. 


154.0 


FmCommon 


Form 


EMS 
PCC 


This form provides for ail of the common properties used 
by alt forms. This form can be accessed via the main 
menus by selecting system properties. -Ml of the color 
schemes, graphic images, etc. that are used by the system 
are included on this form. At runtime, ail other forms within 
the system will invoke public methods within this form to 
set their respective screen fields. 


1 55.0 


-fmCompanyOetaii 


Form 


EMS 


This form provides the mechanism for updating detail 
information pertaining to a specific company. This includes 
identification of a primary company address. 


156.0 


^FmCompanyList 


Form 


EMS 


This form provides a gnd list of all companies that are 
currently stored on EMS* Options on this form include 
extensive lookup and tab options. 


157.0 


yfmContactOetaii 


Form 


EMS 


This form provides the form for updating detail information 
about a contact at a particular company. This includes 
group memberships, functions, etc 


153.0 


ifmContactFunctionDetaii 


Form 


EMS 


This form provides the mechanism for associating a 
contact within a company to a specific job function at that 
company (i.e. Accounting, production, eta). 


159.0 


^FmContactGroupOetail 


Form 


EMS 


This farm provides the mechanism for creating or updating 
contact groups on the system. 


160.0 


IFmContactGroupList 


Form 


EMS 


This form lists ail available contact groups on the system. 
Options on this form include the ability to add, change or 
delete a contact group. 


161.0 


nFmContactlist 


Form 


EMS 


This for lists all contacts within ail companies. Options on 
this form include an ability to add, change or delete a 
specific contact (with appropriate security). In addition, 
there are extensive data lookup capabilities. 


162.0 


ImContactSecuntyAuth 


Form 


EMS 


This form provides for the entry of external company 
security authorization rules (i.e. Enabling access to 
Producer Control Center, eta). 


163.0 


FmContractOetail 


Form 


EMS 


This form represents the detail form for entenng contract 
specific information (netback pricing information, contract 
name, terms, provisions, eta). 


164.0 


FmC o ntra ctList 


Form 


EMS 


This form provides a gnd list of all existing contracts on the 
system. Options exist on this form to add, change or 
delete a contract This form also includes extensive lookup 
and company letter tab's for searching ail contracts. 


165.0 


FmDaiiyPrices 


Form 


PCC 


This form shows the graphs of the revenue detail 
information on the Producer Control Center. 


165.0 


FmDeaiCIassiricationUpdates 


Form 


EMS 


This form provides the mechanism for changing any 
calculation rules associated with a given combination of 
deai classification codes. The WASP inclusion indicator is 
stored on this table. 


167.0 


fmOeaiCorrespondenceOetaii 


Form 


EMS 


This form provides an entry form for attaching electronic 
correspondence to a deai. 
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mCKIUlB Name 


Module Type 


I Application- 


Description/Comments. wjw.:.;,.,- ~ . 




168.0 


FmDeaiCostsEntryOetaii 


Form 


EMS 


This form provides for the entry of 'Other-Costs' associated 
with a particular deal. 




169.0 


FmOeatOetaii 


Form 


EMS 


This is the main detail form that shows all of the 
information relative to a deal. 




170.0 


FmOeaiEntryNew 


Form 


EMS 


This form represents a popup box that is displayed when a 
new deal has been requested. This box prompts the user 
for the type of deal (purchase or sale) and what product 
and service it is applicable toward. 




171 0 


rmueaiList 


Form 


EMS 


This form provides a listing of all 'Purchase' or 'Sales' 
deals within a given month on a grid. Options exist on this 
screen to add, change or delete a deal. 




172.0 


FmOealPrice 

! 


Form 


EMS 
PCC 


This js the form that Is used whenever a user wants to 
calculate the prices for a given volume within a given 
month. The only options on this form are to 'Price Air and 
only for those production months and volumes that are 
applicable (based on monthly status). 




173.0 


7 FmOeaiPriceEntryOetali 


Form 


EMS 


This is the main form for entering deal pnce information 
within the Energy Management System. The pnmary 
underlying tables that get updated include Engine ^Master 
and Engine_MasterPrice. "* 




174.0 


FmException 


Form 


EMS 
PCC 


This form is invoked whenever a system exception occurs 
within the system. In order to complete the exception a 
particular user must have a 'Super ID' for the function and 
he/she must provide an exception reason with a 
description. 


175.0 


FmExceptionCategonesDetaji 


Form 


EMS 


This form provides for a detail update screen to update 
reason code information for a given type of exception. 


176.0 . 


rffrnExceptionCategonesList 


Form 


EMS 


This form provides a listing gnd of all reason code 
exceptions for a given type of exception. 


1/7^0 ^FmGraphicViewer 


Form 


EMS 


This form provides an ability to view graphic images and/or 
scan in graphic images from a scanner. These images can 
be attached to a deal 


178.0 ftmGroupMemberDetaii 

s 


Form 


EMS 


This form represents the detail form forassociating a 
contact as a member of a specific group. 


i /a.a j-FmimagesOetaii 


Form 


EMS 


TTiis form represents the detail form used for posting 
updates to the application graphic images (logo's, etc.). 




FmlmagesList 


Form 


EMS 


This form provides a list of all graphiaimages (logos) that 
are currently stored in the system. 


181.0 ) 


1 FmtnaexBasketDetail 


Form 


EMS 


This form provides a detail update screen to update index 
price basket information. 


182.0 I 


Fmi ndexSasketLii ikDetaii 


Form 


EMS 


This form provides a detail update form to allow for the 
updating of index links to particular baskets. 


183.0 ; 


fminaexSasketList 


Form 


EMS 


This form provides a listing gnd of all index baskets on the 


184.0 


FmLegDaiiyDetaii 


Form 


EMS 


This form provides the detail rate information associated 
with a daily leg rate (which overrides the monthly rate 
when setup on EMS). 


185.0 


FmLegOailyList 


Form 


EMS 


This form provides a listing of all daily rates that may be 
setup for a particular leg. 


186.0 


FmLegOetaii 


Form 


EMS 


This form provides the detail rate information associated 
with the a given leg, on a given production month within 
the system. Both nomination and actual rate information is 
available. 


187.0 


FmLegHistory 


Form 


EMS 


This form provides a histoncal list of all monthly leg rates 
that have been established for a given leg. 


188.0 


FmLegList 


Form 


EMS 


This form provides a list of all legs on the system. Options 
exist from this screen to select and change (modify) the 
specific rate information about a leg. 


189.0 


FmLegMonthiyView 


Foim 


EMS 


This form represents a View' form that provides a read- 
only view of all volumes transported in, out sold and/or on 
balance for a specific meter. 


190.0 


FmLegPurchaseLinkMonthlyView 


Form 


EMS 


This form represents a 'view form that provides a read- 
only view of ail the purchase deals (volumes) that have 
been attributed to a selected sale. 


191.0 


FmLegPurchaseLinkView 


Form 


CMC 


Thie f. . . . . l pAnMCOfltQ 23 'VlAMf 1 fft^^n that _ 

i nis Torm represent «* view luim uiai provides a read- 
only view of ail purchases linked to a specific sale on a 
given day. 
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Description/Comments? — , .r.-^,-* * - — - — 


192.0 


FmLegPurchasePointView 


Form 


EMS 


This form represents a View* form that jravides a read- 
only view of the originating (hop 0) information for any 
given volume that is displayed on the routing screen(s). 


193.0 


FmLegRoute 


Form 


EMS 


This is the main routing screen. Options exist on this 
screen to select pipe/fields, days, noms or actuals, eta 
With appropriate security a person can transport and/or 
sell voiume through this panel. 


194.0 


FmLegSaie 


Form 


EMS 


This form is used as a confirm form for posting volume 
balances to a sale. 


195.0 


FmLegSaiesView 


Form 


EMS 


This form represents a View* form that provides a read- 
only view of ail sales that exist on a given pipe/field for 
either a single day or an entire month. 


196.0 


FmLegTransport 


Form 


EMS 


This form is used as a confirm form for transporting 
volumes to other meters (pools). Options also exist on this 
form to selectively override transport gathering, pvr or fuel 
rates associated with the transoort. 


197.0 


FmLegChange 


Form 


EMS 


This form is used whenever a request is made to change 
the instructions (either voiume or rates) on an existing 
transport OR sale route item. 


198.0 


fmLegOeiete 


Form 


EMS 


This form is used whenever a routed voiume (either 
transported to a pool or posted to a sale) has been 
requested to be deleted. . 


199.0 


FmLocationsOetaii 


Form 


EMS 


This form provides a detail update form to allow for the 
updating of location information. These location entries 
are used throughout the system (versus hardcoding 
locations within the software). 


200.0 


|3nLocationsUst 


Form 


EMS 


This form provides a list form to allow for showing the 
location information. These location entries are used 
throughout the system (versus hardcoding locations within 
the software). 


(201.0 


^jmLogtn 


Form 


EMS 
PCC 


This is the common login form used by the application(s). 
It provides the mechanism for authenticating users or 
comoany contacts upon entry into the system. 


£02.0 


, fmtoginChange 


Form 


EMS 


This form provides the users of the system with the ability 
to change their login passwords. 




ffnLookup 


Form 


EMS 
PCC 


This form provides a standard lookup dialog that allows for 
queries to be run for neariy all other list forms within the 
system. Most list screens provide a lookup button 
(binoculars) that will invoke this form. 


204.0 


ftnMessageflox 


Form 


EMS 
PCC 


This form displays all system messages used within the 
system. This particular form gets utilized by nearly ail 
other form on the system. The messages displayed by this 
form include all ERROR, CONFIRMATION 
INFORMATIONAL and IN-PROCESS oriented messages. 


105.0 


fmMeterAllocationsDetaii 


Form 


EMS 


This form provides for an entry screen for entering 
allocation companies and accounting cress reference deck 
codes for a qiven meter/well and effective date. 


£06.0 


FmMeterOetaii 


Form 


EMS 


This form provides for a detail update form on meter/weii 
information within the system. 


107.0 


fmMeterUst 


Form 


EMS 


This form provides for a list form of all meters/wells within 
the system. 


.08.0 


fmMeterRatesDetaii 


Form 


EMS 


This form provides for an entry screen for entering rates 
(pressure base; Bhi factor, pipe/field pressure base, eta) 
for a given meter/well on a specific effective date. 


.09.0 


FmMeterRevenue 


Form 


PCC 


This form provides a meter/weii form that shows graphic 
representation of calculated volumes and prices. 


10.0 


FmMeterTotaisView 


Form 


EMS 


This form provides a View 1 which is a read-onty view of ait 
the meter totals (actualized versus not actualized) for an 
entire month). A specific deal OR all deals within a month 
can be viewed through this form. 


11.0 


FmMonthtyStatusDetaii 


Form ^ ^ 


EMS 


This form provides a screen for updating the detail 
production month status information. This is where users 
will go to change the status for each production month 
(depending on security level of the user). | 
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Module Name * 


Module Type- 


Application* 


Description/Comments; ^ -~ - 


212.0 


FmMontntySlatusUst 


Form 


EMS 


This form provides a gnd list of all monttrty status 
information (by status). Options exist here to invoke the 
detail update screen to update monthly status information 
(with appropriate security). 


213.0 


tmNetBackTierOetaii 


Form 


EMS 


This form provides the detail form for updating the netback 
pricing tiers for a given contract These tiers are 
referenced (for ail WASP classified deals) during the 
pricing function. 


214.0 


FmOGISFeeds 


Form 


EMS 


This form provides an entry form for specifying the 
parameters used to create the 06IS journal entry and 
revenue receivable accounting feeds. The actuai text files 
are created from this form. 


215.0 


FmPickACompany 


Form 


EMS 
PCC 


This form provides a common mechanism for displaying a 
list of companies to a user and having one of them 
selected and carried back to the requesting form. 


216.0 


FmPickAContact 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of contacts to a user and having one of them selected 
ana earned back to the requesting form. 


217.0 


FmPickAContract 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of contracts to a user and having one of them selected 
and carried back to the requesting form. 


218.0 


FmPickADeai 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of deals to a user and having one of them selected and 
carried back to the requesting form. 


219.0 


^JfmPickADealMeter 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of deal meters to a user and having one of them 
selected and earned back to the requesting form. 


220.0 


rfmPicKALeg 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of leg (monthly routes) to a user and having one of 
them selected and carried back to the requesting form. 


£1.0 


^mPidcALegRef 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of LegRef (master routes) to a user and having one of 
them selected and earned back to the requesting form. 


£22.0 


IfmPickALegSaie 


Form 


EMS 


This form provides.a common mechanism for displaying a 
list of sales points available for routing to a user and 
having one of them selected and carried back to the 
requesting form. 


223.0 


flfmPickAMeter 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of meters/wells to a user and having one of them 
selected and carried back to the requesting form. 


24,0 


^mPickAPtpetine 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of pipe/fields to a user and having one of them selected 
and carried back to the requesting form. 




rmPickAReport 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of reports to a user and having one of them selected 
and earned back to the requesting form. 


226.0 


FmPtpeOetaii 


Form 


EMS 


This form provides the detail update form for updating 
pipe/field information on the system. 


£7.0 


fmPipeiineActuais 


Form 


EMS 


This is the main form used for enter actual volumes for 
metersrweils on the system. The form includes a 
calculator function for propagating the volumes across ail 
days for the highlighted meter/well. 


23.0 


fmPipeUst 


Form 


EMS 


This form provides the list form to show ail pipe/fields 
currently defined within the system. Options exist on this 
form to add. update or delete a pipe/field. 


!29.0 


FmPriceComponentsOetail 


Form. 


EMS 


This form provides the screen for updating the detail 'price 
tags that have oeen setup on me system, xnese pnee 
tags allow us to identify the various portions of a sale or 
purchase price. 


.30.0 


FmPriceComponentstist 


Form 


EMS 


This form provides a grid list of ail pnee components (tags) 
that have been setup on the system. 
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231.0 


fmPriceindexUpdates 


Form 


EMS 


This form provides a list of ail prices forihe daily Index 
Prices. When entering this form the default date is set to 
the current date. When prices are being entered on 
'Mondays' there is a 'copy to previous weekend' button 
which will allow for ail prices to be propagated bade to the 
previous weekend. Monthly index prices are entered on 
day 1 only for a given month. 


232.0 


FmPriceindicesOetaii 


Form 


EMS 


This form provides a screen for updating the price index 
' information on the database (IndexRef table). This 
includes display order, name, eta 


233.0 


fmPriceindicesUst 


Form 


EMS 


This form provides an 'updateabie' grid list that shows ail 
price indices on the system. Options exist here to invoke 
the add/update function (fmPricelndicesDetaii). 


234.0 


fmPricesBylndexList 


Form 


EMS 
PCC 


This form provides a graphic and tabular view of index 
prices for a given month. 


235.0 


FmPrinterOetaii 


Form 


EMS 


This form provides a detail entry form for updating the 
printer information stored on the system. 


236.0 


fmPrintertJst 


Form 


EMS 


This form provides a list form that shows ail pnnters 
currently defined on the system. 


237.0 


FmProcessingCodesDetaii 


roim 


EMS 


This form provides the detail form for updating a given set 
of reference (processing codes). 


238.0 


FmProcessingCodesUst 


Foun 


EMS 


This form provides the list font) for showing ail of the 
processing codes. Options exist on this form to add t 
update or delete a given code. 


239.0 , 


^FmProcessingCodesPick 


Form 


EMS 


This form provides an ability to 'pick 1 a particular reference 
code and send ft back to the form that invoked the screen. 


240.0 \ 


FmProcessingCodeTypesDetaii 


Form 


EMS 


. This form provides the detail form for updating a given set 


241.0, 


jtmProcessingCodeTypesUst 


Form 


EMS 


This form provides the list form for showing all of the 
processing code types. Options exist on this form to add, 
update or delete a given type. 


242.0 | 


^FmProaVoICofirms 


Form 


EMS 


This form provides the mechanism for recognizing volumes 
that were returned fay producers. In addition, options exist 
on this form to send out producer confirmations. 


243.0 


"TmProdVolHist 


Form 


EMS 


This form provides a history list of royalty and makeup 
percentage interests, by owner, for a given meter/weil. 


244.0 \ 


^mProdVotUst 

.•IS- 


Form 


EMS 


This form provides the mechanism for entering initial 
volumes (expected availability) from producers. Option 
exist on this form to send out producer availability estimate 


245.0 1 


FmReponDefauitsDetaii 


Form 


EMS 


This form provides a detail screen for setting up the default 
reports that will be used by entity, product and service on 
the system. These reports include invoices, vouchers, 


2465" 


FmReportOefauitsList 


Form 


EMS 


This form provides a list screen for showing all of the 
default reports that am setup fay entity, product and service 
on the system. These reports include invoices, vouchers, 


247.0 


FrnReportOvemdesOetail 


Form 


EMS 


This form provides a detail screen for setting up the 
override reports that will be used by entity, product and 
service on the system ASSOCIATE TO A SPECIFIC 
CONTRACT. These reports include invoices, vouchers, 
remittance, etc 


248.0 


FmReportsList 


Form 


EMS 
PCC 


This is the primary form used for displaying a reporting 
folder. Within this folder are all of the reporting tabs' that 
are available. Within each tab are all of the specific reports 
that can be run. A submission, and view button are 
available here. 


249.0 


FmReportsParaemeters 


Form 


EMS 
PCC 


This is the form that is used when entering the various 
parameters when a report is submitted. Defaults are 
automatically supplied and the parameters are listed in a 


250.0 " 


fmReports\/iew 


Form 


EMS 
PCC 


This is the main view form for viewing all of the submitted 
reports. Options exist to view the reports specifically 
submitted by a user OR to view the reports that were 
submitted bv the scheduler. j 
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251.0 


fmSecurityAuthDetaii 


Form 


EMS 


This form represents the form for establishing and updating 
security authorizations between users and business 

ft inj~+Tnne vutfhin th» f»nftffTV JUl 3 nafTOfn f*nt *ui Ijiin OotlOflS 
lunCQOns WlUllll UK? Gatcnyj ivtoiioydiiwii tjyaiau. wpuui 

exist here to allow for users to have NO ACCESS, READ 
ONLY, READ/UPDATE, READ/UPDATEDELETE or 
SUPER access to a particular area of application. 


252.0 


frnSecurityAuthiist 


Form 


EMS 


This form provides a listing of all security authorizations 

that ara eat far oa^h I raof nn thfl) PflAfflV MjinanfttnAflt 

System. Options exist on this form to add, update and 
delete specific security authorizations for any given user of 
the system. 


253.0 


FmsRptsinvoice 


Form 


EMS 


This is the onrnarv form used for submitn'na standard 
invoice reports. 


254.0 


FmsRptsRemrttance 


Form 


EMS 


This is the Drimarv form used for suhmittinn ctanriairi 

remittance reports. 


255.0 


fmsRptsVoucher | Form 


EMS 


This is the primary form used for submitting standard 
voucher reports. 


255.0 


FmTransactionOetaii 


Form 


EMS 


i nis Torm pruviaes ior uie enuy or winer uosr transactions 
within EMS. Once these transactions are setup in the 

eireiom than thcu fan aHarhaW t/> Waaie «**««4 

system, xnen iney can db suacneu 10 oeais ano 
calculations wiii be done against them. 


257.0 


FmTransactionList 


Form 


EMS 


This form provides a list of ail the 'Other Cost transactions 
that have been setup on the system. 


258.0 

S 5;:;; 


fmUserProfilesDetaii 


Form 


EMS 


This form represents the creation and update form for ail 
users on the Energy Management System. This form 
provides an administrator with the ability to change name, 
password, title, default printer, eta for all users on the 
system. 


259.0,; 


j fmUserProfiiestist 


Form 


EMS 


This form provides a listing of all users that are capable of 
using the Energy Management System. Options exist on 
this form to add, update or delete a specific user. 


260.0y 


I fmGasControlMainMenu 


Form 


EMS 


This form represents the main menu for the Energy 
Management System. AH menu options, speed buttons, 
etc are storeo on iros iuiiu. 1 nis pamcuiar rorm is aiso 
responsible for invoktngthe methods to establish a 
connection and set the form screen attributes (based on 
user preferences). 


261 .Of 

0 

f ' ' 


, fmiProducerControiCenterMain 


Form 


PCC 


This form represents the main menu for the Producer 
Control Center. All menu options, speed buttons, etc are 
stored on this form. This particular form is also responsible 
for invoking the methods to establish a connection and set 
the form screen attributes (based on user preferences). 
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APPLICATION (CLIEN-S1DE) SOFTWARE 

The table that follows contains the high-level 
documentation related to the systems and methods provided by 
5 the present invention and, in particular, those sub-functions and 
applications that run client-side in the context of the present 
invention. In the table that follows, the terms EMS and PCC are 
used to differentiate (as described above), between a full use 
application system and a limited use/user/function application 
10 system that are provided by the present invention. The actual 
source code for such application software is contained among the 
files found on the attached compact disc. 

PRICING AND PRICING TECHNIQUES 

15 So far in the aforementioned detailed discussion the 

present invention, it has been assumed that the particular pricing 
techniques may be employed to price one or more fuel deals 
automatically. The present invention certainly permits fuel deals 
to be priced based on a variety of factors germane to the energy 

20 field. Additionally, the systems and methods provided by the 
present invention permit fuel deals to be priced automatically, in 
batch or otherwise, based on pricing techniques which are 
modularized and which are carried out automatically based on 
prior or other collections of fuel deals and other fuel deal data. 

25 Accordingly, teams of sales personnel can have deals priced 
based on company specifications to meet margin requirements, 
etc. 

One such technique implemented as a modularized 
process capable of pricing one or more fuel deals in accordance 
30 with the present invention is referred to as the WASP technique 
which stands for the Weighted Average Selling Price technique. 
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WASP permits one or more fuel deals (usually a collection) to be 
priced to meet organization pricing targets (and margin 
requirements) based on computed average sales prices across 
collections of fuel deals. The WASP technique and its supporting 
computer software are contained herein for purposes of example 
to illustrate the novelty of having a system that can incorporate a 
substitutable pricing technique (algorithm) into a business process 
like or similar to the one depicted in and discussed in regard to 
FIG. 1. 

The WASP Calculation 

This particular section contains information on the 
calculation that occurs to price deals. In the context of the 
present invention, it is envisioned that there are three situations 
that can trigger a pricing calculation: 

1. The price calculation can be submitted at any time 
by individuals with appropriate security using the 
System online pricing screen (see FIGS. 4A-4Q). 
Only those production months in a 'Sales' 
(nomination recalculated) or 'Invoiced' (actual 
recalculated) status can be submitted through this 
screen; 

2. When the status for a production month goes from 
'Sales' to 'Invoiced' a final nomination is performed. 
In addition, when the status of a production month 
goes from 'Invoiced' to 'Accounting' a final actuals 
calculation is performed. These production month 
status 'promotions' occur through the EMS online 
screens (by individuals with an appropriate level of 
security); and 

3. Each evening, for example, all production months 
that are in either the 'Sales' or 'Invoice' status will 
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have a calculation cycle run for them. This 
calculation begins at approximately 8:00 CST, for 
example. This ensures that all variables (price index 
entries, volumes, routing instructions, etc.) that could 
influence the price of a given set of deals are 
recalculated and presented as current, the first thing 
in the morning. 

The entire calculation process is comprised entirely of MS 
SQL-Server Transact-SQL stored procedures. The 'flow' of the 
calculation can be described with reference to the following six (6) 
stages: 

Stage 1 . Sales Deal Calculations 

Calculate all sales deals first (all pools and deal 
classifications). This is done because knowing the sales prices 
(by pool) is required for the following purchase deal calculations. 

Stage 2 WASP Deal Preparation 

This particular stage simply prepares the 
WASPResolvedRouting table with initial sales pool total dollars 
and volumes. This is the primary table that is used when 
repeatedly (such as via iteration) tracing all volumes from the 
sales point back to originating purchase points. 

Stage 3 Purchase Deal 'None' Pool (3 rd Party) 
Calculations 

All third party purchase deals (belonging to the 'None 1 
(pool) are calculated first. The reason for this is because of the 
potential that some of these deals having Financial Overrides that 
are to be distributed to either a 'Common' WASP pool OR to a 
specific deal. By doing these calculations first, the profit gain or 
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loss (for the financial overrides) can be determined and posted to 
the appropriate place in the WASPResolvedRouting table. 

Stage 4 Purchase Deal 'Dedicated 5 Pool 
5 (Sanctioned Sales) Calculations 

All sanctioned sales purchase deals are now calculated. 
The price for these purchases is driven based on a weighted 
average basis of the sales meters. Sanctioned sale purchase 
exist in their own pool ('Dedicated 1 ) so that no other purchases 
10 volumes (and sales of those volumes) will impact the price 
calculated. Netback percentages are applied. 



Stage 5 Purchase Deal 'Common' Pool (Equity) 
Calculations 

15 All equity deals are then calculated. The price for these 

purchases is driven based on a weighted average basis of the 
sales meters. All purchases that are classified as 'equity 1 will 
share in pricing and costing (weighted). The pricing is based on 
the 'common' body. Any given purchase deal classified as equity 

20 could potentially impact the price that other purchase deals (in the 
'common' pool) calculates. Netback percentages are applied. 



Stage 6 Transportation Costs 

This stage of the calculation aggregates all of the transport 
25 volumes throughout the month to special transport deals and 
volume inventory items. 

Each of the aforementioned stages of the calculation are 
invoked from a stored procedure called 
30 usp_PSPriceAutoMonth. FIGS. 5A and 5B illustrate the process 
flows corresponding to these 'stages' and the flow of the stored 



-27- 



procedures (discussed above) invoked during the calculation. 
The ordering of these procedures can be tied back to the stages 
just described above. Actual WASP calculation routines are listed 
below to aid the reader to completely understand the nature using 
a predetermined pricing technique in accordance with the present 
invention. 

Weighted Average Sales Price Calculation Routines 

The following software routines implement a weighted 
average sales pricing technique that may be incorporated within a 
computing environment such as within a server-side processing 
system to facilitate fuel deal pricing in accordance with a preferred 
embodiment of the present invention. Accordingly, in the context 
of the instant invention, the following routines provide a 
predetermined pricing technique for pricing fuel deals based on 
past, present, or future deals, or combinations thereof. The 
following routines are found among the files contained on the 
attached compact disc, and also have been commented to assist 
those of ordinary skill in the art understand the details related to 
actual implementation. 



/* Microsoft SQL Server - Scripting 
i* Server IS101 
I* Database: EMS 

(* Creation Date 02/13/2001 4:08:41 PM 



CREATE PROCEDURE usp_fGetindex( 



AS 



©GasMonthX DATETIME, 
©GasDayX DATETIME, 
@IXVARCHAR(15), 

©IndexValuexx DECIMAL(19,6) OUTPUT 
) 



Name: uspJGetindex 

Description: Get the most recent index value for a specified price index. 
Inputs: 

GasMonthx - Gas month for lookup 
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GasDayx - Preferable gas day used for lookup 
Ix - Index id 

IndexValuexx - return index value 

5 History: 

1 1/07/2000 JAMIE Modifications to convert from Watcom-SQL to 
Transact-SQL 

7 

BEGIN 

SELECT ©IndexValuexx = 0 
/* 

* First get the maximum gas day that 

* has been entered for this index 
*id in this particular month. 

20 7 

SELECT @GasDayX=(SELECT Max(GasDay) FROM GCIndex WHERE GasMonth=@GasMonthX AND 
GasDay<=@GasDayX AND lndextD=@lX AND IndexValoO) 

r ************** 

25 * Now get the index value for that 
*day. ilLx xk l ^ 

7 

SELECT ©IndexValuexx = IndexVal FROM GCIndex WHERE GasMonth=@GasMonthX AND GasDay=@GasDayX 
30 AND lndexlD=@iX 

END 



GO 

35 SET QUOTEDJDENTIFIER OFF SET ANSi.NULLS ON 

GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 

40 

CREATE PROCEDURE usp_fGetlndexBasket( 

©GasMonthX DATETIME, 
©GasDayX DATETIME, 
©IndexBasketlDX VARCHAR(15), 
45 ©IndexValuexx DECIMAL(19 t 6) OUTPUT 

) 

AS 

BEGIN 
I* 

50 ******* **" ********* ***** — 

Name: fGetlndexBasket 

Description* This function will get the index basket amount for the specified 
month and date. This function will return a simple average of all the non zero 
55 components within the index for the month and day. 

Inputs: GasMonthX (current gas month), GasDayX (day within month) and 
IndexBasketlDX (IndexBasket unique identifier). 

60 Outputs: Simple averaged price for the index basket. 

History 

xx/xx/xx (?) CHIP Original Creation. 

65 

04/29/99 JAMIE Modified for WASP 2.10 Release. Structure changes 
made to the Engine and Engine_Master tables. In 
addition, all documentation added. This particular 
portion of the system required extensive changes 
70 due to the need to store a nom and actual number 
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and because ail price components are now stored 
off the Engine JvlasterPrice table (STID's 8 and 9). 



1 1/08/2000 JAMIE Converted to transact-sql. 



25 



35 



55 



7 

r 



1 0 * Declare all exceptions, cursors 

* and local variabies that will be 

* utilized by this procedure. 



7 

1 5 DECLARE indexBaskelink.Cursor CURSOR LOCAL FORWARD.ONLY STATIC FOR 

SELECT indexiD FROM IndexBaskelink WHERE lndexBasketiD=@IndexBasketlDX 

DECLARE ©yTotalPrice DEC!MAL(19,6) 
DECLARE @yTotalindices INTEGER 
20 DECLARE ©yTotalPriceinterim DECIMAL{19,6) 

DECLARE ©yindexlD VARCHAR(12) 

r 



* Initialize all fields here... 



7 

SELECT @yTotalPrice=0 
SELECT @yTotalindices=0 
SELECT @lndexValuexx=0 

30 r 



* Loop through all of the indices within 

* the index basket. Obtain the price 

* information. 



7 

OPEN lndexBasketLink_Cursor 

FETCH NEXT FROM IndexBasketLink.CursorlNTO @ylndexlD 
WHILE @@FETCH_STATUS = 0 
40 BEGIN 

EXECUTE usp JGetlndex @GasMonthX,@GasDayX,@ylndexlD,@yTotalPricelnterim OUTPUT 
IF @yTotalPricelnterim<>0 
BEGIN 

SELECT @yTota!Price=@yTotalPrice+@yTotalPriceinterim 
45 SELECT @yTotalindices=@yTotallndtces+1 

END 

FETCH NEXT FROM IndexBasketLink.Cursor INTO ©ylndexlD 

END 

CLOSE IndexBaskelink_Cursor 
50 DEALLOCATE IndexBaskelink Cursor 

r 



* Take the simple average of the totals 

* here... 



7 

IF (@yTotalPrice<>0) AND (@yTotaifndices<>0) 
BEGIN 

SELECT @IndexValuexx=(@yTotaiPrice/@yTotallndices) 

60 END 
END 



65 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
70 GO 
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SET QUOTED JDENTIRER OFF SET ANSI.NULLS ON 
GO 



CREATE PROCEDURE usp_fGetNetbackPercentage( 

@PIDx INTEGER, 
©GasMonthx DATETIME, 
©TypeNetbackx VARCHAR(12), 
©WhichPricex INTEGER, 
©yNetbackPercentage DECIMAL(19,8) OUTPUT 
) 

AS 

BEGIN 

Name: uspJGetNetbackPercentage 

Descnption: This function will return the netback percentage that should be applied 
to a particular deal, for a particular month. This netback percentage is based on the 
percentage setup at the contract level for the deal in question. These percentages 
at the contract level (KNetback table) are tiered. There are two methods of deriving 
the percentage. 

Method 0 (Ali or nothing) - With this method the average daily volume for the month 
will be used to find the appropriate tier (also based on effective date). The netback 
percentage to use will be the FIRST tier setup on the contract whose average daily volume 
does not exceed the total for the gas month on this package. All gas volume for the 
month will use this same percentage (all or nothing). 

Method 1 (Accumulating) - With this method the resulting end percentage that will be 
used is based on volumes within each tier (they are weighted based on their respective 
volumes. The netback percentage that is calculated is based on the wieghted average of 
alt percentages, across all tiers using volumes that were applied. 

This particular function wtii work with Nomination (WhichPricex = 0) and Actual 
(WhichPricex = 1) volumes. In addition, this procedure can return both 'GAS 1 and/or 
'OIL' (and or any other) netback (via the TypeNetbackx parameter). 



was sent as an input parameter. The WASP indicator is based on the combination of 
deal classifications that have been established for this deal. The default indicator 
is 'N* (ie if classification information can't be found/etc). All combinations of 
deal classifications should be setup. 

Inputs: 

PIDx (package ID) 
GasMonthx (Gas Month) 
TypeNetbackx (type of netback percentage) 
WhichPricex (0=Nominations, 1=Actuais) 

Outputs: 

A single percentage to be applied to the pnce, representing the netback. 
History: 

05/13/99 JAMIE Original Creation. 

07/22/99 JAMIE Modified to check for a floor amount 
and return that amount if it is greater 
than the calculated amount. 

09/02/1 999 JAMIE Modified to sum volumes either across DEAL, CONTRACT 
or COMPANY when determining the correct tier. 

08/21/2000 JAMIE Modifications to only sum volumes within the same 
product (across entities and services). 

11/08/2000 JAMIE Converted to Transact-SQL 
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* Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 



10 7 

DECLARE ©zRound INTEGER 
DECLARE @zEntityCID VARCHAR(12) 
DECLARE @zKProductiD INTEGER 
DECLARE ©zKServicelD INTEGER 

15 

DECLARE ©tmpEndDate DATETIME 
DECLARE ©tmpMaxEffective DATETIME 
DECLARE ©tmpDayslnPenod INTEGER 
DECLARE ©tmpVoiumeTotal DECIMAL(19,2) 

20 DECLARE ©tmpAccumulatingTotai DECIMAL(19,2) 

DECLARE ©tmpPrevBand DECIMAL(19,2) 
DECLARE ©tmpCurrBand DECIMAL(19,2) 
DECLARE @tmpBandTotalDECIMAL(19,2) 
DECLARE QtmpBandWeightPerc DEC!MAL(19,8) 

25 DECLARE @tmpAccumuiating Price DEC1MAL(19,8) 

DECLARE ©yNetbackMethod INTEGER 
DECLARE @yNetbackTierLevel VARCHAR(IO) 
DECLARE ©yAveragePerDay DEC!MAL(19,2) 

30 DECLARE QyDaiiyTotal DEC1MAL(19,2) 

DECLARE ©yeffect've DATETIME 
DECLARE @ymaxvollevel DECIMAL<19,2) 
DECLARE ©ynetprice DECIMAL(19,8) 
DECLARE ©ynetpricefloor DEC!MAL(19,8) 

35 DECLARE @yKID INTEGER 

DECLARE @yCID VARCHAR(12) 

* Get netback method information off the 
40 * contract. The default will be all or 

* nothing (most common). However, this 

* should always be found on the contract. 

* 0 = All or Nothing 
45 * 1 = Accumulating 

* Also, this area of the code sets the 

* default for the netback to zero. 

50 * in addition, go and get the default 

* netback tier level off the contract 

* in order to know at what level to 

* summarize the volumes when 

* performing the calculation. The 
55 * default is 'DEAL' if it can't be found 

*or if one is not specified. 



SELECT @yNetbackPercentage=0 
60 SELECT @yNetbackMethod=ISNULL((SELECT tier FROM K WHERE KID=(SELECT KID FROM package WHERE 

PKG=@PIDx)),0) 

SELECT @yNetbackTierLevel=fSNULL((SELECT NetbackTierLevel FROM K WHERE KID={SELECT KID FROM 
package WHERE PKG=®PIDx))/COMPANY') 

SELECT @yK!D=ISNULL((SELECT KID FROM package WHERE PKG=@PIDx),0) 
65 SELECT @yCID=ISNULL((SELECT CID FROM package WHERE PKG=@PiDx),") 

/* 



* Get the entity, product and service 

* information off the deal table. There 
70 * has to be a value on the deal (package) 
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* table for each of these... 



7 

SELECT @zEntityCID=ISNULL((SELECT K.EntityCID FROM Packaged WHERE PKG=@PIDx and 
K.K!D=Package.KID)/') 

SELECT @zKProduct!D=ISNULL((SELECT KProductID FROM Package WHERE PKG=@PIDx),0) 
SELECT @zKServiceiMSNULL((SELECT KServicelD FROM Package WHERE PKG=@PIDx),0) 

r 



10 * Now calculate the average volume of 

* gas per day that this particular 

* package has on the system. Remember to 

* use the WhichPrice parameter to determine 

* which volume to get. 
15 * 0=(Nominated Volume) 

* 1=(pipeline actual volume) 

*/ 

EXECUTE usp_lastDay @GasMonthx,@tmpEndDate OUTPUT 
20 SELECT @tmpDayslnPeriod=(DATEDIFF(day t @GasMonthx,@tmpEndDate) + 1 ) 
IF @WhichPricex=0 
BEGIN 

IF @yNetbackTierLevel='DEAL' 
BEGIN 

25 SELECT @tmpVoiumeTotai=ISNULL((SELECT SUM(Nom) FROM 

Gaslnv WHERE PKG=@PIDx),0) 

END 

IF @yNetbackTierLeve!='CONTRACr 
BEGIN 

30 SELECT @tmpVoiumeTotaMSNULL{{SELECT SUM(Gasinv.Nom) 

FROM Gaslnv,Package 

WHERE Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=0 AND Gaslnv.PriceType=1 AND Gaslnv.KID=@yKiD 

AND Package.PKG=Gaslnv.PKG AND 

35 Package.KProductlD=@zKProductlD) ) 0) 

END 

IF ©yNetbackTierLevei^COMPANY' 
BEGIN 

40 SELECT @tmpVolumeTotal=iSNULL((SELECT SUM(Gaslnv.Nom) 

FROM Gaslnv.Package 

WHERE Gaslnv.GasMonth=@GasMonthx AND 
Gas!nv.DBCR=0 AND Gasinv.PriceType=1 AND Gaslnv.C!D=@yC!D 

AND Package.PKG=Gaslnv.PKG AND 

45 Package.KProductlD=@zKProductlD) t O) 

END 

END 

IF @WhichPricex=1 
BEGIN 

50 IF @yNetbackTierLevei='DEAL' 

BEGIN 

SELECT @tmpVolumeTotai=iSNULL((SELECT SUM(PipelineActuais) 

FROM Gaslnv WHERE PKG=@P!Dx),0) 

END 

55 IF @yNetbackTierLevel='CONTRACT 

BEGIN 

SELECT @tmpVolumeTotal=iSNULL((SELECT 
SUM(Gaslnv.PipelineActuals) FROM Gaslnv.Package 

WHERE Gaslnv.GasMonth=@GasMonthx AND 
60 Gasinv.DBCR=0 AND Gaslnv.PriceType=1 AND Gaslnv.KiD=@yKiD 

AND Package.PKG=Gaslnv.PKG AND 

Package.KProductlD=@zKProductiD) t O) 

END 

IF @yNetbackTierLevel='COMPANY' 
65 BEGIN 

SELECT @tmpVolumeTotal=!SNULL((SELECT 
SUM(Gaslnv.PipelineActuals) FROM Gaslnv.Package 

WHERE Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=0 AND Gaslnv.PriceType=1 AND Gasinv.CID=@yCiD 
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AND Package.PKG=Gaslnv.PKG AND 

Package.KProductlD=@zKProductlD),0) 

END 

END 

IF (@tmpVoiumeTotal=0) OR (@tmpDayslnPeriod<1) 
BEGIN 

SELECT @yAveragePerDay=0 

END 

ELSE 

BEGIN 

EXECUTE usp.GetProductVolumeRound @PIDx,@zRound OUTPUT 

SELECT ©yAveragePerDay^ROUNDfgtmpVolumeTotat/gtmpDayslnPeriod.QzRound) 

END 

* Determine which effective date of rules 

* should be used. This will be the max 

* effective date where the effective date 

* is either in or prior to the end of the 

* current gas month. Only the set of rules 

* associated with the most recent effective 

* date will be used. If a date cannot be 

* found then this function will return 

* a zero percentage (ie. one isn't on 

* the system that precedes the gas 

* month). 

7 

SELECT @tmpMaxEffective=(SELECT MAX(effective) FROM knetback WHERE KID=(SELECT KID FROM package 
WHERE PKG=@PIDx) 

AND (effective<=@tmpEndDate) AND NetBackType=@TypeNetbackx) 

IF@tmpMaxEffectiveiS NULL 
BEGIN 

SELECT @tmpMaxEffectove='01-01-190Q' 

END 

r 



* If method 0 (all or nothing) then go 

* and get the single tier percentage. 

* The tier record will loop through and 

* take the first tier record where the 

* volume is greater than or equal then 

* the average volume per day. 

* This is the all or nothing netback 

* pricing tier logic. 



7 

IF @yNetbackMethod=0 
BEGIN 

SELECT @yDailyTotai=@yAveragePerDay 

END 

ELSE 

BEGIN 

SELECT @yDaiiyTotal=0 

END 

/* 



* Initialize any fields that may be 

* needed during the loop process. 



7 ' 

SELECT @tmpAccumulatingTotal=@yAveragePerDay 
SELECT @tmpPrevBand=0 
SELECT @tmpAccumulatingPrice=0 

/ AXXAXXXXX AXX,X A XXXX j U A X.lX AXXXXXX j UXXIXXIX X 

* Now loop through ail of the netback 

* price records attached to the contract. 

7 
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DECLARE NetbackCursor CURSOR LOCAL FORWARD_ONLY STATIC FOR 
SELECT 

effective, 

5 maxvollevel, 
netprice 
FROM 

kNetBack 

' WHERE 

1 0 (KiD=(SELECT KID FROM Package WHERE PKG=@P!Dx)) AND 

(effective=@tmpMaxEffective) AND 
(maxvolievel>=@yDai!yTotal) AND 
(NetbackType-@TypeNetbackx) 

ORDER BY 

1 5 maxvollevel asc 

OPEN NetbackCursor 

FETCH NEXT FROM NetbackCursor INTO @yEffective,@ymaxvollevei,@ynetprice 
WHILE @@FETCH_STATUS = 0 
BEGIN 

20 IF @yNetbackMethod=0 

BEGIN 

IF @yNetbackPercentage=0 
BEGIN 

SELECT 

25 @yNetbackPercentage=ROUND(@ynetprice,4) 

END 

END 

/* 



35 



30 * If method 1 (accumulating) then go 

* through and weight each tier to derive 

* a percentage. We know the total volume 

* for the month each tier wti! provide us 
*wrth the weighting information we need. 



IF @yNetbackMethod=1 
BEGIN 



IF @tmpAccumulatingTotal>0 
40 BEGIN 



@tmpPrevBand) 



SELECT @tmpCurrBand={@ymaxvollevel- 



IF @tmpCurrBand<=@tmpAccumuiatingTotal 
BEGIN 

45 SELECT 
@tmpBandTotai=@tmpCurrBand 

SELECT 

@tmpAccumulatingTotai=(@tmpAccumulatingTotal-@tmpCurrBand) 

END 

50 ELSE 

BEGIN 

SELECT 

@tmpBandTotal=@tmpAccumulatingTotal 

SELECT 

55 @tmpAccumufatingTotal=0 

END 

SELECT @tmpBandWeightPerc=@tmpBandTotai 
SELECT 

@tmpBandWeightPerc=@tmpBandWeightPerc/@yAveragePerDay 
60 SELECT 

@tmpAccumuiatingPrice=@tmpAccumulatingPrice+R0UND((@ynetprice*@tmpBandWeightPerc) > 4) 

END 

SELECT @tmpPrevBand=@ymaxvoilevel 

END 

65 FETCH NEXT FROM NetbackCursor INTO @yEffective,@ymaxvollevel,@ynetprice 

END 

CLOSE NetbackCursor 
DEALLOCATE NetbackCursor 
/* 



70 
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* Get the last accumulating price here 
*and use this price... 



10 



55 



65 



70 



*/ 

IF @yNetbackMethod=1 
BEGIN 

SELECT @yNetbackPercentage=@tmpAccumulatingPrice 

END 



* At this point a calculated netback 

* percentage has been derived. Now 
15 * check to see if the calculated netback 

* percentage is less than the 'floor 1 

* amount setup on the contract. If so, 

* then use the floor amount. 

20 */ 

SELECT @ynetpricefloor=ISNULL((SELECT NetPriceFloor FROM K WHERE KID=(SELECT KID FROM Package 
WHERE PKG=@PIDx)),0) 
IF @ynetpricefloor<>0 
BEGIN 

25 IF @ynetpricefloor>@yNetbackPercentage 

BEGIN 

SELECT @yNetbackPercentage=@ynetpricefioor 

END 

END 

30 END 



35 



40 

GO 

SET QUOTEDJDENTIFiER OFF SET ANSI.NULLS ON 
GO 

45 SET QUOTEDJDENTIFIER ON SET ANSi.NULLS ON 

GO 

CREATE PROCEDURE uspJGetWASPlndicator( 

@PIDx INTEGER, 

50 ©yWasplndicator VARCHAR(10) OUTPUT 

) 

AS 

BEGIN 

r 



Name: uspjfGetWasplndicator 



Description: This function will return the WASP indicator for the package ID that 
was sent as an input parameter. The WASP indicator is based on the combination of 
60 deal classifications that have been established for this deal. The default indicator 

is 'None* (ie if classification information can't be found/etc). All combinations of 
deal classifications should be setup. 



inputs: PIDx (package ID). 

Outputs: A 'Comon' or 'Dedicated' or 'None' indicator which specifies whether 
or not this package is considered 'WASP'able. 

History: 
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05/12/1999 JAMIE Original Creation. 



08/03/1999 JAMIE Modification to use the deal classification indicators 
off of the package table versus the deaiclass table. 



25 



7 
/* 



1 0 * Declare all exceptions, cursors 

* and local vanables that will be 

* utilized by this procedure. 

****** »*** 

7 

1 5 DECLARE ©yDeaiContextID INTEGER 

DECLARE ©yDeafTypelD INTEGER 
DECLARE @yDeatVolumeVollD INTEGER 
DECLARE @yDealPricePenodiD INTEGER 
DECLARE @yDeallnterruptible!D INTEGER 

20 r ^^^^^ 

* Populate the various deal classification 

* identifiers based on the information 

* stored on the package table. 



7 

SELECT 



@yDeaiContextlD = PackageDBCR, 
@yDea!Type!D = DeaiTypedclD, 
30 ©yDealVolumeVollD = VolumeVolatilitydcID, 

@yDeatPricePeriodiD = PricePerioddcID, 
@yDealinterruptibleiD = InterruptibledcID 
FROM 

Package 

35 WHERE 

PKG=@P!Dx 

r 

«*^*^********«*********»*** * **** ** * *** * * 

* Now go and get the WASP indicator for 
40 * this particular deal. 

7 

SELECT @yWasplndicator=iSNULL((SELECT IncludelnWasp FROM rDealClassRuIes 

WHERE 

45 DeaiContext=@yDealContextlD AND 

DealTypedclD=@yDealTypelD AND 
VolumeVolatilitydclD=@yDealVoiumeVoiiDAND 
PricePerioddclD=@yDealPricePeriodlD AND 
InterruptibiedciD=@yDeallnterruptibleiD) ) , None') 

50 END 



GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
55 GO 

SET QUOTED IDENTIFIER OFF SETANSLNULLS ON 
GO 



60 CREATE PROCEDURE usp_fGetWaspType( 



AS 

65 BEGIN 

r 
***■ 

Name: uspJGetWaspType 
70 Description: This function will return the WASP type field to use for the 



@PIDx INTEGER, 

©yWaspType VARCHAR(12) OUTPUT 
) 
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specific package (deal) that is being looked at. This type is based on the 
product id setup for the deaf. 



inputs: 

PIDx (package ID). 
Outputs: 

yWaspType - 'OIL'/LIQUIDS', OR 'GAS'. 
History: 

1 5 12/03/2000 JAMIE Original Creation. 



10 



20 



7 
/* 

* Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 

25 7 

DECLARE ©yDealProduct VARCHAR(SO) 
DECLARE @yDealProductiD INTEGER 
/* 

30 * Initialize the return value to be GAS 
7 

SELECT @yWaspType='GAS' 
/* 



35 



* Get the contrat ID off the deai 

* (package) table. 



7 

40 / S , ELECT ©yDealProductID = ISNULL((SELECT KProductID FROM package where PKG=@PIDx),0) 

* if a contract ID was found then 

* based on the value then convert 
45 * the netback type. 

7 

IF @yDea!ProductlD <> 0 
BEGIN 

50 SELECT ©yDeaiProduct = ISNULL((SELECT shortdescription FROM SEProcessing Codes 

WHERE processingcodeid= @yDealProductlD)/Gas') 
IF @yDealProduct = 'Gas' 

BEGIN 

SELECT @yWaspType='GAS' 

55 END 

IF @yDeaiProduct = 'Oir 
BEGIN 

SELECT @yWaspType='OIL' 

END 

60 IF @yDeaiProduct = liquids' 

BEGIN 

SELECT @yWaspType='LlQU!DS' 

END 

END 

65 END 



70 
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45 



65 



70 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTEDJDENTIFIER ON SETANSLNULLS ON 
GO 

CREATE PROCEDURE usp_flsLastDay( 



10 

AS 

BEGIN 

DECLARE @LDx DATETiME 
DECLARE @a INTEGER 
1 5 EXECUTE usp JLastDay @DT,@LDx OUTPUT 

IF @LDx=@DT 

BEGIN 



@DT DATETIME 



SELECT @a=1 



SELECT @a=0 



END 

20 ELSE 

BEGIN 
END 

RETURN(@a) 
25 END 



GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
30 GO 

SET QUOTEDJDENTIFIER ON SETANSLNULLS ON 
GO 



35 CREATE PROCEDURE uspjastday( 



AS 

40 BEGIN 

r 



©lastdate DATETIME, 
@ldx DATETIME OUTPUT 



* Initially, just set the return value to be 

* equal to the date coming in. 
*** 

7 

SELECT @ldx=@iastdate 
/* 



50 * Now, loop thai adding 1 day to the date 

* while the month is still equal. 

7 

WHILE MONTH(@ldx)=MONTH(@lastdate) 
55 BEGIN 

SELECT @ldx=DATEADD(DAY,1. 

END 

/* 



60 * Since the loop would have finished with 

* the date being 1 day greater than the 

* last day of the month, then back it off 

* one day here to get the true end of 
'month value... 



7 

SELECT @ldx=DATEADD(DAY,-1 ,@ldx); 
END 
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GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
5 GO 

SET QUOTEDJDENTIFIER ON SET ANSI NULLS ON 
GO 

1 0 CREATE PROCEDURE usp_GasDayToGasMonth( 

©GasDayX DATETIME, 
©GasMonthX DATETIME OUTPUT 
) 

AS 

1 5 BEGIN 
/* 



* Initially, just set the return value to be 

* equal to the date coming in. 
20 ■ — * "** 

7 

SELECT @GasMonthX=@GasDayX 
/* ^ 

25 * Now, loop thru subtracting 1 day to the 

* date while the month is still equal. 

*/ 

WHILE MONTH(@GasMonthX)=MONTH(@GasDayX) 
30 BEGIN 

SELECT @GasMonthX=DATEADD(DAY,-1 ,@GasMonthX) 

END 

r 



35 * Since the loop would have finished with 

* the date being 1 day less than the 

* first day of the month, then bump it up 

* one day here to get the true beginning of 

* month value... 

40 — — ™ — — 

7 

SELECT @GasMonthX=DATEADD(DAY,1 ,@GasMonthX) 
END 

45 

GO 

SET QUOTED IDENTIFIER OFF SET ANSiJMULLS ON 
GO 

50 SET QUOTEDJDENTIFIER ON SET ANSIJMULLS ON 

GO 

CREATE PROCEDURE uspJ3etProductVolumeRound( 

@PKGx INTEGER, 

55 ©RoundNumber INTEGER OUTPUT 

) 

AS 



60 Name; usp_GetProductRound 

Description: Get the value used to round volumes to based on the information 
in the processing codes table (typetimtt field). 

65 Inputs: 

RoundNumber - Number of digits to round calculations too. 

Outputs: 

70 
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None 
History: 

5 1 1/23/2000 JAMIE Original creation. 



*/ 

BEGIN 

1 0 DECLARE @zRoundNumber INTEGER 

SELECT @zRoundNumber = ISNULL((SELECT SP.TypeLimit FROM SEProcessingCodes AS SP, Package WHERE 
SP.ProcessingCodelD = Package.KProductiD AND Package.PKG=@PKGx),Q); 
SELECT ©RoundNumber = ©zRoundN umber 
END 

15 



20 GO 

SET QUOTED JDENTIFIER OFF SETANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
25 GO 

CREATE PROCEDURE usp_LinePrice( 



30 

AS 

BEGIN 

I* 



35 Name: uspJJnePrice 

Description: This procedure will calculate the line price for a specific Engine 
record. The input parameter nETID represents a unique key to a specific Engine 
record. In addition, the nNomOrAct parameter specifies whether or not to post the 
40 price line information to the nomination area or the actual area of the engine 

record. The volgroup field on the engine record contains the unique package (deaf) 
id. This is used in the link to get the actual price components for the package. 

Inputs: 

45 

nETID = Engine Key 

nNomOrAct = ^Nomination, ^Actualization) 
Outputs: 

50 

Either an updated PriceOrRateNom or PriceOrRateActfieid on the Engine record. 

The precise field updated depends on the input parameter sent to this process (nNomOrAct). 

History: 

55 

xx/xx/xx (?) CHIP Original Creation. 

04/29/99 JAMIE Modified for WASP 2.10 Release. Structure changes 
made to the Engine and Engine_Master tables, in 
60 addition, all documentation added. This particular 

portion of the system required extensive changes 
due to the need to store a nom and actual number 
and because all price components are now stored 
off the Engine JvlasterPrice table (STID's 8 and 9). 

65 

06/22/2000 JAMIE Modified to puil in the entity, product and service 
in order to get the correct pnce off the wasp table (values are passed 
to the wasp routine). 

70 1 1/10/2000 JAMIE Converted to Transact-SQL 



@nETID INTEGER, 
©nNomOrAct INTEGER 
) 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



* Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 

*/ 

DECLARE @xEngine_Effective DATETIME 
DECLARE @xET!D INTEGER 
DECLARE @xSequenceNo INTEGER 
DECLARE @xPriceTag VARCHAR(20) 
DECLARE @xOperandVariable VARCHAR(1) 
DECLARE @xPriceVanable VARCHAR(15) 
DECLARE ©xPriceEntryType VARCHAR(12) 
DECLARE ©xEffective DATETIME 
DECLARE @xTID INTEGER 
DECLARE ©xEntityCID VARCHAR(12) 
DECLARE ©xKProductID INTEGER 
DECLARE @xKServicelD INTEGER 
DECLARE ©yPrice DECIMAL(19,6) 
DECLARE ©yPricefnterimValue DEC IMAL( 19,6) 
DECLARE ©yMonthDate DATETIME 
DECLARE @zTemp DECIMAL(19,6) 

DECLARE Engine J/lasterPriceAII CURSOR LOCAL FORWARD_ONLY STATIC FOR 

SELECT DISTINCT 
emp.ETID, 
emp.SequenceNo, 
emp.PriceTag, 
emp.OperandVariable, 
emp.PriceVariable, 
pc.PriceEntryType, 
em.Effective, 
e.TID, 
k.entitycid, 

package.KProductID, 
package.KServiceiD 
FROM 

enginejnasterprice AS emp, 
engine AS e, 
engine_master AS em, 
pricecomponents AS pc, 
gasinv, 
K 

package 



WHERE 



ORDER BY 



(e.ETID=@nET!D) AND 
(em.ETID=e.EM_ETID) AND 
(emp.ETID=em.ETID) AND 
{gasinv.tid=e.tid) AND 
(k.kid=gasinv.kid) AND 
(package. pkg=gasinv.pkg) AND 
(pc.PriceTag=emp.PriceTag) AND 
(emp.NomOrActual=@nNomOrAct) 

t 

emp.ETID, 
emp.SequenceNo 



* Initialize all fields here.. 

65 V 

SELECT @yPrice=0 

SELECT @yPriceinterimValue=0 

r 

70 * Open the cursor to get the pricing 
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* information and loop through all of 

* the price component records. The end 

* result price will ultimately be 

* updated on the engine record. 
5 **** 

7 

OPEN EngineJVIasterPriceAil 
FETCH NEXT FROM Engine_MasterPriceAII INTO 
@xETlD,@xSequenceNo,@xPrireTag,@xOperand^ 
10 @xEffective,@xTID,@xEntityCID t @xKProduct!D ( @xKServiceiD 
WHILE @@FETCH STATUS = 0 
BEGIN 

/* ^ 

1 5 * Derive the gas month based on the 

* effective from the engine 

* record. 



7 

20 SELECT @xEngine_Effective=(SELECT effective FROM engine WHERE ET!D=@nETID) 

EXECUTE usp.GasDayToGasMonth @xEngine_Effective,@yMonthDate OUTPUT 

/* iAmjujiAjiijLA AAi Aiji 

* Convert the price variable portion to a 
25 * number. If an index then get the index 

* amounts. The default pnce for any 

* component not in this case statement is 

* zero (ie.. WASP, UNKNOWN, etc.) . 

30 7 

SELECT ©yPricelnterimValue = 0 
IF ©xPriceEntryType^Numeric' 
BEGIN 

SELECT @yPriceinterimVaiue=CAST(@xPriceVariable AS 

35 DECiMAL(19,6)) 

END 

IF @xPriceEntryType='Monthly iDX' 
BEGIN 

EXECUTE uspJGetlndex 
40 ©yMonthDate^yMonthDate^xPriceVariable^yPricelnterimValue OUTPUT 

END 

IF @xPriceEntryType='Daily IDX' 
BEGIN 

EXECUTE uspJGetlndex 
45 @yMonthDate,@xEngine_Effective ) @xPriceVariable ( @yPriceinterimVaiue OUTPUT 

END 

IF @xPriceEntryType='Basket iDX* 
BEGIN 

EXECUTE uspJGetlndexBasket 
50 ©yMonthDate.gxEngine.Effective.QxPriceVariable.gyPricelnterimValue OUTPUT 

END 

IF @xPriceEntryType='Wasp' 
BEGIN 

EXECUTE uspJGetCalcindex 

55 ©xTID.QnNomOrAd^xEntityCiD^xKProductiD.QxKServicelD^yMonthDate.QyPricelnterimValue OUTPUT 

END 

IF @yPrice!nterimVa!ue IS NULL 
BEGIN 

SELECT ©yPriceinterimValue = 0 

60 END 

I* 

* At this point the yPriceinterim Value 

* contains the individual price component 
65 * amount. Now, depending on the operator, 

* apply this to the current total 

* (yPrice). The end result is yPrice 

* being updated with this component amount. 

70 7 
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IF ©xOperandVariabfe- +' 
BEGIN 

SELECT @yPrice=@yPrice-^yPriceinterimValue 

END 

IF (gxOperandVariabie- - 
BEGIN 

SELECT @yPrice=@yPrice-@yPricelnterimValue 

END 

IF ©xOperandVariable- ** 
BEGIN 

SELECT @yPrice=@yPrice*@yPriceInterimVaiue 

END 

IF ©xOperandVariabie-/ 1 
BEGIN 

IF (§yPrice<>0) AND (@yPriceinterimValue<>0) 
BEGIN 

SELECT 

@yPrice=@yPrice/@yPrice!nterimVaiue 

END 

END 

FETCH NEXT FROM Engine_MasterPriceAtl INTO 
@xETID f @xSequenceNo,@xPriceTag,@xOperandVariable,@xPriceVariabIe,@xPriceEntryType, 

@xEffective,@xTID,@xEntityClD p @xKProductID t @xKServicelD 
END 

CLOSE Engine JVIasterPriceAil 
DEALLOCATE Engine.MasterPriceAII 

* Finally, take the results of the price 

* components and update the engine record 

*with the price. 
* 

* If nom calculation then update then 

* nom price. If actual calculation then 

* update the actualized pnce. 

7 

IF @nNomOrAct=0 
BEGIN 

UPDATE 

Engine 
SET 

PriceOrRateNom=@yPrice 

WHERE 

ETID=@nETID 

END 

IF @nNomOrAct=1 
BEGIN 

UPDATE 

Engine 
SET 

PriceOrRateAct=@yPrice 

WHERE 

ETID=@nETID 

END 

END 



GO 

SET QUOTED .IDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI JJULLS ON 
GO 

CREATE PROCEDURE usp_message{ 
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@messagex VARCHAR(255) 



15 



20 



25 



AS 
/* 



Name: usp_message 

Description: This routine will dictate where and how messages from the system 
will (or will not) be posted. These are transitory messages generated by the 
1 0 system (like during a calculation). 

Inputs: 

messagex - Text message to write 
Outputs: 
None 



History: 

1 1/07/2000 JAMIE Original creation. 



7 

BEGIN 

DECLARE @tmpMessage VARCHAR(254) 

r 

30 INSERT INTO ApplicationMessages (ApplicationMessageText) VALUES (@messagex) 

PRINT @messagex 
7 

35 SELECT @tmpMessage = @messagex 

END 



40 



45 



50 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
55 GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
GO 

60 CREATE PROCEDURE usp__PSPrice( 

@PIDx INTEGER, 
©WhichPricex INTEGER, 
©GasMonthx DATET1ME, 
©DBCRx INTEGER 
65 * ) 

AS 

BEGIN 

r 

70 Name: usp_PSPrice 
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Description: Price ail of the gas inventory items. 



History: 

5 

xx/xx/xx (?) CHIP Original Creation. 

05/03/99 JAMIE Modified for WASP 2.1 0 Release. Structure changes 
made to the Engine and Engine Jvlaster tables. In 
1 0 addition, all documentation added. In addition modifications were made to drive the 

pricing off package identifier versus Gas inventory Transaction Identifier (TJD). Since 
all pncing is done at a package level. 

Only those entries within the gas inventory with pricetype=1 
1 5 will be processed by this procedure. These entries represent 

only the purchase and sale items AND SHOULD HAVE Engine Jvlaster 
records associated with them. 

07/12/2000 JAMIE Modified to check for the actualizedflag on the 
20 gasinv record. If the flag is set to a T then set the price accordingly. If 

the flag is set to something other than a Y (ie.. 'N' or null) then the 
price will automatically get a zero. The price or rate number for actuals 
will still calculate AND it is possible that some meters within a deal will 
calculate (if the flag is set) while other meters on the same deal wii! not 
25 (if the flag is not set). The engine record is where all calculated results 
are stored and will contain zeros for the entries that have not been 
setup to be actualized. 



30 7 

r ^ 

* Declare all variables and cursors 

* that are needed by this process. 
35 " " - 

7 

DECLARE @tmpEndDate DATETIME 

DECLARE @tmpNextEffectiveDate DATETIME 

DECLARE ©tmpNumberDays INTEGER 
40 DECLARE ©tmpVolumeinPeriod DECIMAL(19,2) 

DECLARE ©tmpDateToUse DATETIME 

DECLARE @yTID INTEGER 

DECLARE ©yActualizedFlag VARCHAR(1) 

DECLARE @ySTID INTEGER 
45 DECLARE @yEffecttve DATETIME 

DECLARE ©yETID INTEGER 

DECLARE @zRound INTEGER 

50 DECLARE GasinventoryCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 

SELECT 

DISTINCT 
TID, 

ActualizedFlag 
55 FROM 

Gasinv 

WHERE 

(PKG=@PIDx)AND 
(PriceType=1) AND 

60 (DBCR=@DBCRx) 

r 



* At this point the calculation needs to 

* happen. Iterate through each of the 

65 * inventory items attached to this particular 

* package... Only STID's of 8 or 9 are 

* priced here... (STID=8 is DBCR=0 is a 

* purchase),(STID=9 is DBCR=1 is a sale). 
* 

70 "Within each inventory item go through 
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* each effective date/STiD and use the 

* pricing rules to determine whether the 

* pricing accumulates or is ail or 

* nothing. 

7 

EXECUTE usp_GetProductVolumeRound @PIDx,@zRound OUTPUT 
OPEN GaslnventoryCursor 

FETCH NEXT FROM GaslnventoryCursor INTO @yTID,@yActuaiizedF!ag 
1 0 WHILE @@FETCH_STATUS = 0 

BEGIN 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

DISTINCT 

15 e.ETID, 

e.Effective, 
e.STID, 
e.TID 
FROM 

20 Engine AS e, 

Engine_Master AS em 

WHERE 

(em.ETID=e.EM_ETID) AND 
(em.PID=e.Vo!Group) AND 
25 (e.TID=@yTID) 

ORDER BY 

e.ETID 

OPEN EngineCursor 

FETCH NEXT FROM EngineCursor INTO @yETID,@yEffective,@yST!D,@yTtD 
30 WHILE @@FETCH_STATUS = 0 

BEGIN 

r 

* Calculate and update the engine with the 
35 * the actual price from the engine_master 

* via call to the following function. 

7 

EXECUTE uspJJnePrice @yET!D,@WhichPricex 

40 L .. u .uu u miU 

* Determine the volume total to be applied 

* to this price line here. This represents 

* the sum of the volume between the 
45 * effective date and the end of the 

* month OR the next price effective 

* date for this item. The value of 

* tmpNumberDays contains the number of 

* days to apply the price and volumes 
50 * toward within the calculation. 

7 

EXECUTE usp fLastDay @GasMonthx t @tmpEndDate OUTPUT 
SELECT @tmpNextEffectiveDate=(SELECT MIN(effective)-1 FROM 
55 engine AS e WHERE (e.TID=@yT!D) AND (e.STID=@ySTID) AND (e.Effective>@yEffective)) 

IF @tmpNextEffectiveDate IS NULL 
BEGIN 

SELECT 

@tmpNextEffectiveDate=@tmpEndDate 
60 END 

IF @tmpNextEffectiveDate<@tmpEndDate 
BEGIN 

SELECT 

@tmpDateToUse=@tmpNextEffectiveDate 
65 ^ END 

ELSE 

BEGIN 

SELECT @tmpDateToUse=@tmpEndDate 

END 
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SELECT 

@tmpNumberDays=DATEDlFF(day 1 @yE1fective 1 @tmpDateToUse) + 1 

IF @WhichPricex=0 
BEGiN 

SELECT 

@tmpVolumelnPeriod=ISNULL((SELECT SUM(Nom) FROM GaslnvD WHERE (GaslnvD.TID=@yTlD) 

AND (GaslnvD.GasDay BETWEEN ©yEffective AND @tmpDateToUse)),0) 

END 

IF @WhichPricex=1 
BEGIN 

IF@yActualizedFlag=V 
BEGIN 
SELECT 

@tmpVolumelnPeriod=ISNULL((SELECT SUM(PipelineActuals) FROM GaslnvD WHERE (GaslnvD JID=@yTiD) 

AND (GaslnvD.GasDay BETWEEN ©yEffective AND @tmpDateToUse)),0) 

END 

ELSE 

BEGIN 

SELECT @tmpVoiumeinPeriod 
END 

END 

r 

* Update the actual engine volumes and 

* amounts here... 

7 

IF @WhichPricex=0 
BEGIN 

UPDATE 



Engine 
SET 



Volume=ROUND(@tmpVolumelnPehod,@zRound), 

Amount=ROUND((@tmpVolumelnPeriod*Engine.PriceOrRateNom) ) 2) 

WHERE 

END 

IF @WhichPricex=1 
BEGiN 

UPDATE 



ETID=@yETID 



Engine 
SET 



VoiumeAct=ROUND(@tmpVolumelnPeriod,@zRound), 

AmountAct=ROUND((@tmpVolumelnPeriod*Engine.PriceOrRateAct) f 2) 

WHERE 



ETID=@yETID 



END 

FETCH NEXT FROM EngineCursor INTO 

@yETID,@yEffective,@ySTID,@yTID 

END 

CLOSE EngineCursor 
DEALLOCATE EngineCursor 

FETCH NEXT FROM GaslnventoryCursor INTO @yTID,@yActuaiizedF!ag 

END 

CLOSE GaslnventoryCursor 
DEALLOCATE GaslnventoryCursor 
END 



GO 

SET QUOTED JDENTIFIER OFF SETANSLNULLS ON 
GO 
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SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 



5 CREATE PROCEDURE usp_PSPriceAil( 

@GasMonthx DATETIME, 
©DebitCreditx INTEGER, 
©WhichPricex INTEGER, 
@PKGx INTEGER, 

1 0 ©EntityCIDx VARCHAR(1 2), 



20 



25 



55 



65 



©includelnWASPx VARCHAR(10) 



AS 

BEGIN 

15 r 



Name: usp_PSPriceAH 
Description: 

Loop thruough all packages (deais) involved within a given month (purchase 
or sale) and invoke the pnce procedures. 

inputs: 



GasMonthx (Gas Month to price), 
DebitCreditx (0=Debit (Purchases) - 1-Credit (Sales)), 
WhichPricex ^Nominations, 1=Actuaiizations 
PKGx (0=all otherwise specific package ID) 
30 EntityCIDx (owning company entity id) 

Include! nWASPx (" for all, otherwise check for 'Common V Dedicated', or 'None') 

History: 

35 05/13/99 JAMIE This entire process was rewritten with V2.10 of 
the Gas Control System. Package driven now 
instead of individual inventory item driven. 

07/22/99 JAMIE Include 3rd party deals within the 
40 calcualtion process. They WILL NOT BE included within the WASP calculations 

and will be treated the same as "Dedicated" (sanctioned sales) deals. This 
will ensure they are not affecting any other pricing component. 

05/24/2000 JAMIE Modified to include the changes to calculate based on company 
45 entity ID (passed to this calculation). This ensures that WASP calculations/etc 

are ail within their respective companies... The deal cursor (PackageCursor) 
will now only select those items where the entity ID for the contract on the deal 
matches the one passed to this routine. 

50 07/26/2000 JAMIE Modified to include the IncludelnWaspx parameter to 

this particular procedure. This will allow certain types of deals to 
be priced independently of other types (ie.. do 3rd party first in order 
to divie the proceeds either to a pool OR to another deal). 



*/ 



* Declare all variables and cursors 
60 * that are needed by this process. 



************ ****** 



*/ 

DECLARE ©zTypeText VARCHAR(10) 
DECLARE ©zMessage VARCHAR(255) 

DECLARE @yPKG INTEGER 

DECLARE ©ylncludelnWasp VARCHAR(10) 



DECLARE PackageCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
70 SELECT 
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DISTINCT 

Gasinv.PKG 

FROM 

Gasinv, 

5 Package, 

K 

WHERE 

Package.PKG=Gaslnv.PKG AND 
K.KID=Package.KID AND 
1 0 K.EntityCiD=@EntityC!Dx AND 

Gasinv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=@DebitCreditx AND 
Gasinv.PriceType=l 

ORDER BY 

15 Gasinv.PKG 

r 

********************* ********************* 

* Initialize any fields required. 
***i 

20 v 

IF @DebitCreditx=0 
BEGIN 

END 

25 IF @DebitCreditx=1 

BEGIN 



30 



END 



SELECT ©zTypeText- Purchase* 



SELECT @zTypeText='Sale' 



* Loop through each package 

* involved in this calculation. As each 

* deal is fetched get its WASP indicator 

* information in order to determine if 
35 * it can be involve d in this process. 

*/ 

OPEN PackageCursor 

FETCH NEXT FROM PackageCursor INTO @yPKG 
40 WHILE @@FETCH_STATUS = 0 

BEGIN 

BEGIN TRANSACTION 

EXECUTE uspJGetWASPIndicator@yPKG,@ylncludelnWasp OUTPUT 
IF (@PKGx=0) OR ((@PKGx<>0) AND (@PKGx=@yPKG)) 
45 BEGIN 

IF (@lncludelnWaspx=") OR (@includelnWaspx=@ylnciudelnWasp) 
BEGIN 

SELECT ©zMessage = 'PSPriceAII Running 
for Entity '+@EntityCIDx+' and type '+@zTypeText+\ Package:'*' , +CONVERT(VARCHAR(10),@yPKG)+'...: 
50 EXECUTE usp_message @zMessage 

r 

* Reset the financial override dollar 

* amount to zeros at the beginning of the 
55 * calculate for the deal... 



60 



65 



FinancialNomAmount=G 



70 



PKG=@yPKG 



*/ 

IF @WhichPricex=0 
BEGIN 
UPDATE 



package 
SET 



WHERE 



END 



-50- 



IF @WhichPricex=1 
BEGIN 
UPDATE 



package 
SET 



Financia!ActAmount=0 



WHERE 



10 



15 



20 



25 



30 



35 



40 



45 



50 



PKG=@yPKG 



END 



@yPKG,@WhichPricex,@GasMonthx,@DebitCreditx 



@yPKG,@WhichPricex f @GasMonthx t @DebitCreditx 



@yPKG,@WhichPricex t @GasMonthx,@DebitCreditx 



END 



r 



* Create any system generated pricing 

* components for this package... These 

* pncing components are tightly related 

* to the Engine ^Master. This is needed 

* to be done prior to populating the 

* Engine with pricing information. 

*/ 

EXECUTE usp_PSPriceComponentsCheck 



!* 



* Now create ail engine items for all 

* Engine_Master records. This is where 

* the engine will be populated with entries 

* based on information stored in the 

* EngineJVIaster. Included is the daily 

* index pnce 'proliferation' routine. 

*/ 

EXECUTE usp_PSPricePopufateEngine 
/* 

* Finally, now go and price the actual 

* engine entries that were created in the 

* P rev ' QUS ste P- 
*/ 

EXECUTE usp.PSPrice 



END 

COMMIT WORK 

FETCH NEXT FROM PackageCursor INTO @yPKG 

END 

CLOSE PackageCursor 
DEALLOCATE PackageCursor 
END 



55 



60 



65 



70 



GO , 

SET QUOTED .IDENTIFIER OFF SET ANSl.NULLS ON 
GO 

SET QUOTED .IDENTIFIER OFF SET ANSl.NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceAnyNewlnvoicesNeeded( 



©GasMonthx DATETIME, 
©EntityCIDx VARCHAR(12) 

) 
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15 



20 



25 



35 



AS 

BEGIN 
/* 



5 Name: usp_PSPriceAnyNewlnvoicesNeeded 
Description: 

This routine gets executed once a gas month has been put 
10 in an 'Invoiced' status. It wiil automatically go out and assign and invoice 
number where one previously did not exist (could use the same invoice 
number as an existing). 



inputs: 

GasMonthx - Gas month being calculated 
EntityCIDx - owning company 

History: 

12/15/1999 JAMIE Original creation 

12/21/1999 JAMIE Modify to put the monthly aphabetic code as the first 
field of the invoice number to eliminate OGSYS clipping of a leading zero. 

05/24/2000 JAMIE Modified to only create the invoices within the given owning 
company. The invoice numbers will need to be unique within the entire system. 



30 7 
/* 



* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE @yTlD INTEGER 

DECLARE @yCID VARCHAR(12) 

DECLARE @yPipe VARCHAR(12) 
40 DECLARE ©zAcctgldentifier VARCHAR(12) 

DECLARE @zYear INTEGER 

DECLARE ©zYearString VARCHAR(1) 

DECLARE ©zMonth INTEGER 

DECLARE ©zMonthString VARCHAR(1) 
45 DECLARE @zNumToUse INTEGER 

DECLARE ©zNumToUseLength INTEGER 

DECLARE ©zNumToUseString VARCHAR(3) 

DECLARE @zNumToUseZeros VARCHAR(3) 

DECLARE @zMaxAcctgldentifier VARCHAR(12) 
50 DECLARE ©zWorkString VARCHAR(12) 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

Gaslnv.TID, 

55 Gaslnv.CID, 

Gaslnv.Pipe Field 
FROM 

Gasinv, 
Package, 

60 K 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gasinv.PriceType=1 AND 
Gasinv.DBCR=1 AND 

65 (Acctgldentifier IS NULL OR Acctgidentifier=") AND 

Package.PKG=GasinvPKG AND 
K.KID=Package.KID AND 
K.EntityCID=@EntityClDx 

ORDER BY 

70 Gaslnv.CID, 
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Gaslnv.PipeField 



* Determine the prefix to use for the 

5 * creation of the invoice numbers. If more 

* than 10 years then these numbers begin 

* to be reused. 
* 

* This routine is CHEAP but it should 
1 0 * suffice. 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



SELECT @zYear=YEAR(@GasMonthx) 

SELECT @zYearString=RIGHT(CONVERT(VARCHAR(4) l @zYear),1) 
SELECT @zMonth=MONTH(@GasMonthx) 
IF @zMonth=1 



BEGIN 

END 
IF @zMonth=2 

BEGIN 

END 
IF @zMonth=3 

BEGIN 

END 
IF @zMonth=4 

BEGIN 

END 
IF @zMonth=5 

BEGIN 

END 
IF @zMonth=6 

BEGIN 

END 
IF @zMonth=7 

BEGIN 

END 
IF @zMonth=8 

BEGIN 

END 
IF @zMonth=9 

BEGIN 

END 

IF@zMonth=10 

BEGIN 

END 

IF@zMonth=11 

BEGIN 

END 

IF@zMonth=12 

BEGIN 

END 



SELECT @zMonthString='A' 



SELECT @zMonthString= , B' 



SELECT ©zMonthString^C 



SELECT QzMonthStrings'D' 



SELECT @zMonthString='E' 



SELECT @zMonthString='F' 



SELECT @zMonthString='G' 



SELECT @zMonthString- H' 



SELECT @zMonthString=T 



SELECT @zMonthString='J* 



SELECT ©zMonthString^K 1 



SELECT @zMonthStnng='L' 



65 



70 



* Find the starting point to begin 

* assigning new invoices from just 

* in case some numbers need to be 

* assigned. 
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7 

SELECT @zNumToUse=0 

SELECT @zMaxAcctgidentifier={SELECT max(Acctg Identifier) FROM Gaslnv WHERE GasMonth=@GasMonthx AND 
DBCR=1 AND PriceType=1) 
IF LEN(@zMaxAcctg identifier) = 6 
BEGIN 

SELECT @zWorkString-RIGHT(@zMaxAcctgldent!fier,4) 

SELECT @zWorkString=LEFT(@zWorkString,3) 

SELECT @zNumToUse=CONVERT(INTEGER ( @zWorkString) 

END 

* Now go get the records that do not 

* yet have a invoice number assigned 

* to them (ie. execute the c ursor). 

7 

OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yTlD,@yCID,@yPipe 
WHILE @@FETCH_STATUS = 0 
BEGIN 

/* 



* Now go and find one, if one exists. 



7 

SELECT @zAcctgldentifier=(SELECT DISTiNCT(Acctg Identifier) FROM Gaslnv WHERE 
GasMonth=@GasMonthx AND 

DBCR=1 AND PriceType=1 AND CID=@yCID 
AND PipeFie!d=@yPipe AND Acctg Identifier IS NOT NULL AND Acctgldentifiero") 

IF ©zAcctgldentifier IS NULL 
BEGIN 

/* 



* For each of these combinations generate 

* and invoice number and update the Gaslnv 

* table... Make sure that the number 

* to use is padded with zeros in order 

* to create a complete invoice number. 

* REALLY CHEAP ZERO PADDING. 



7 

SELECT @zNumToUse=@zNumToUse+1 
SELECT 

@zNumToUseStnng=CONVERT(VARCHAR(3),@zNumToUse) 

SELECT @zNumToUseLength=LEN(@zNumToUseString) 
SELECT @zNumToUseZeros=" 
IF @zNumToUseLength < 3 
BEGIN 

IF @zNumToUseLength=2 

BEGIN 

SELECT @zNumToUseZeros=*Q' 
END 

IF @zNumToUseLength=1 

BEGIN 
SELECT 

@zNumToUseZeros-00' 

END 

END; 

SELECT 

©zAcdgldentifieRtgzMonthString^zYearSMng^zNumToUseZeros-^zNumToUseString+'N 1 

r 



* Finally, post the invoice number that 

* was just created to the gas inventory 

* table. 



7 

UPDATE 
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Gaslnv 
SET 

Acctgidentifiep@zAcctgidentifier 

WHERE 

GasMonth=@GasMonthx AND 
DBCR=1 AND 
PriceType=1 AND 
CID=@yCiD AND 
PipeField=@yPipe AND 
T!D=@yTiD 

END 

FETCH NEXT FROM GaslnvCursor INTO @yTID,@yCID,@yPipe 

END 

CLOSE GaslnvCursor 
DEALLOCATE GaslnvCursor 
END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceAssignlnvoiceNo( 

©GasMonthx DATETIME 
) 

AS 

BEGIN 

SETNOCOUNTON 

J * ************ ^H^^^^ 

Name: usp_PSPriceAssignfnvoiceNo 

Description: This routine will ciear out any existing invoice numbers on the gas 
inventory table AND generate/assign an invoice number and post to the gas 
inventory table. 

This particular routine is only looking at 'Sales' (DBCR=1) within the specified 
gas month (GasMonthx) that have a price type of '1' (ie., not a transport inventory 
item). 

The format of the invoice number that gets generated will be as follows: 
Character 



1 Represents alph code for month (A=January ( B=February, etc.). 

2 Represents the last digit of the year (1999=9, 2000=0, etc.). 
3-5 Represents unqiue number assigned. 

6 Represents 'N* for Nominations. 

These invoice numbers are generated uniquely for ail sales meters within a given pipe and 
company identifier. This procedure will assign the invoice number to both the 
nom and actual fields. Later (during actual calculations) the actual invoice number may 
or may not get updated based on the modifications made to the volumes or pnces. 

inputs: GasMonthx (Gas Month to calculate), 

History: 

10/27/1999 JAMIE Original creation 

1 1/19/1999 JAMIE Modified the number creation to post the final character as 
an'N'. 

12/21/1999 JAMIE Modified the number creation process to put the monthly 
alphabetic code at the beginning of the invoice number instead of the 2nd 
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character. 



* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE @yCiD VARCHAR(12) 
DECLARE @yPipe VARCHAR(12) 
DECLARE ©zAcctgldentifier VARCHAR(12) 
DECLARE @zY ear INTEGER 
DECLARE ©zYearStnng VARCHAR(1) 
DECLARE @zMonth INTEGER 
DECLARE ©zMonthString VARCHAR(1) 
DECLARE @zNumToUse INTEGER 
DECLARE QzNumToUseLength INTEGER 
DECLARE ©zNumToUseString VARCHAR(3) 
DECLARE ©zNumToUseZeros VARCHAR(3) 

****** l^lll JUHllllJUUl 

* Determine the prefix to use for the 

* creation of the invoice numbers. If more 

* than 10 years then these numbers begin 
*to be reused. 

* This routine is CHEAP but it should 

* suffice. 



*/ 

SELECT @zYear=YEAR(@GasMonthx) 

SELECT @zYearString=R!GHT(CON VERT{ VARCH AR{4),@zYear), 1 ) 

SELECT @zMonth=MONTH(@GasMonthx) 

IF@zMonth=1 

BEGIN 

SELECT @zMonthString- A' 

END 
IF @zMonth=2 

BEGIN 

SELECT @zMonthString- B' 

END 
IF @zMonth=3 

BEGIN 

SELECT @zMonthString='C' 

END 
IF @zMonth=4 

BEGIN 

SELECT ©zMonthString-D' 

END 
IF @zMonth=5 

BEGIN 

SELECT ©zMonthString^E' 

END 
IF @zMonth=6 

BEGIN 

SELECT @zMonthString- F 

END 
IF @zMonth=7 

BEGIN 

SELECT ©zMonthString^'G' 

END 
IF @zMonth=8 

BEGIN 

SELECT @zMonthString='H' 

END 
IF @zMonth=9 

BEGIN 

SELECT @zMonthString=T 
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END 

!F@zMonth=10 

BEGIN 

END 

IF @zMonth=11 

BEGIN 

END 

IF@zMonth=12 
BEGIN 

END 

/* 



* Clear out the invoice number that may 

* have preexisted for this particular 

* gas month (this number will always be 

* empty UNLESS the gas month is opened 

* and closed more than once). 



*/ 

BEGIN TRANSACTION 
UPDATE 

Gaslnv 
SET 

WHERE 



COMMIT WORK 

r 



* Now build a cursor that contains all of 

* the unique combinations of company and 

* pipeline (o rdered by company and pipeline). 

*/ 

SELECT @zNumToUse=0 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

DISTINCT 
(Gaslnv.CID), 
(Gaslnv.PipeFieid) 
FROM 

Gasinv 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=1 AND 
Gasinv.DBCR=1 

ORDER BY 

Gaslnv.CID, 
Gaslnv.PipeFieid 

OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yCID,@yPipe 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

r 



* For each of these combinations generate 

* and invoice number and update the Gaslnv 

* table... Make sure that the number 

* to use is padded with zeros in order 

* to create a complete invoice number. 

* REALLY CHEAP ZERO PADDING. 



*/ 



SELECT @zMonthString- J' 
SELECT ©zMonthString^K' 
SELECT @zMonthString='L' 



Acctgldentifier=NULL 

GasMonth=@GasMonthx AND 
DBCR=1 AND 
PriceType=1 AND 

(Acctgldentifier IS NOT NULL OR Acctgldentifiero") 
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SELECT @zNumToUse=@zNumToUse+1 

SELECT @zNumToUseString=CONVERT(VARCHAR(3),@zNumToUse) 
SELECT @2NumToUseLength=LEN(@zNumToUseString) 
SELECT @zNumToUseZeros- ' 
5 IF @zNumToUseLength < 3 

BEGIN 

IF @zNumToUseLength=2 
BEGIN 

SELECT @zNumToUseZeros='0' 

10 END 

iF @zNumToUseLength=1 
BEGIN 

SELECT @zNumToUseZeros='00' 

END 

15 END 

SELECT 

@zAcctg!dentifier=@zMonthStrina^ 

r 

20 * Finally, post the invoice number that 

* was just created to the gas inventory 

* table. 



7 

25 UPDATE 



45 



50 



60 



Gaslnv 
SET 



Acctgldentifier=@zAcctgidentifier 

WHERE 

30 GasMonth=@GasMonthx AND 

DBCR=1 AND 
PriceType=1 AND 
ClD=@yClDAND 
PipeField=@yPipe 

35 COMMIT WORK 

FETCH NEXT FROM GasinvCursor INTO @yCID,@yPipe 

END 

CLOSE GasinvCursor 
DEALLOCATE GasinvCursor 
40 END 



GO 

SET QUOTED .IDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE usp.PSPriceAuto 
55 AS 

BEGIN 

r 



Name: usp.PSPriceAuto 
Description: 



This procedure wiii be scheduled at automatically calculate the gas months 
in their respective stages. Noms get calculated for gas months in the 'Sales' stage. 
65 Pipeline actuals get calculated for gas months in the 'Invoiced' stage. All other gas 

months are ignored by this process. 

Inputs: 

70 None 
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History: 



07/29/1999 JAMIE Original Creation. 

5 

10/20/1999 JAMIE Modified to invoke the PSPriceCostAll routine which will 
calculate other costs for deals and post them to the engine table. 

03/22/2000 JAMIE Modified to invoke the single month calculation routine. This wiii 
1 0 ensure easier (non duplicated) maintenance on procedures to update price calculations. 



15 



25 



50 



7 

r 

* Declare all vanables and cursors 

* that are needed by this process. 



7 

20 DECLARE @yGasMonth DATETiME 

/* 



* First, calculate all of the nom 

* numbers (each gas month). 



7 

DECLARE GasMonthCursorl CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

GasMonth 

30 FROM 

rGasMonth 

WHERE 

CurrentStatus- Sales' AND 
(LockedUser IS NULL OR LockedUser=") 

35 ORDER BY 

GasMonth 

OPEN GasMonthCursorl 

FETCH NEXT FROM GasMonthCursorl INTO ©yGasMonth 
WHILE @@FETCH_STATUS = 0 
40 BEGIN 

EXECUTE usp.PSPriceAutoMonth ©yGasMonth.O 
FETCH NEXT FROM GasMonthCursorl INTO ©yGasMonth 

END 

CLOSE GasMonthCursorl 
45 DEALLOCATE GasMonthCursorl 

r 



* Now calculate based on the pipeline 

* actuals each month. 



7 

DECLARE GasMonthCursor2 CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

GasMonth 

55 FROM 

rGasMonth 

WHERE 

CurrentStatus='lnvoiced' AND 
(LockedUser IS NULL OR LockedUser^) 

60 ORDER BY 

GasMonth 

OPEN GasMonthCursor2 

FETCH NEXT FROM GasMonthCursor2 INTO ©yGasMonth 
WHILE @@FETCH_STATUS = 0 
65 BEGIN 

EXECUTE usp_PSPriceAutoMonth ©yGasMonth, 1 
FETCH NEXT FROM GasMonthCursor2 INTO ©yGasMonth 

END 

CLOSE GasMonthCursor2 
70 DEALLOCATE GasMonthCursor2 
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END 



5 

GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

10 SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 

GO 

CREATE PROCEDURE usp_PSPriceAutoMonth( 

©GasMonthx DATETiME, 
1 5 ©WhichVolumex INTEGER 

) 

AS 

BEGIN 

SET NOCOUNTON 

20 r 



Name: usp_PSPriceAutoMonth 
Description: 

25 

This procedure will be execute all of the price calculation procedures 

required for a given month INCLUDING locking the month from other executions... This 

particualr procedure will be executed asynchronously by the system through the online 

screens. 

30 

Inputs: 

GasMonthx (Gas month to calculate) 
WhichVolumex (Price noms=0, Price actuals=1) 

35 

History: 

08/31/1999 JAMIE Original Creation. 

40 1 2/1 5/1999 JAMIE Modified to execute a new stored procedure once 
the gas month has been changed to the 'Accounting' status. This new 
procedure will mark and 'zap' the invoice numbers (amongst other things) 
on those gas inventory items were some sort of a price or volume adjustment 
was made. 

45 

03/22/2000 JAMIE Modified this process to handle aii of the calculations for 
gas months, etc. Moved the 'Divie' process to this routine (was buried within 
the transport cost module). 

50 05/24/2000 JAMIE Modified to enable an outer cursor on company entity (CID). This will 
allow for the partitioning of the calculations based on company ID (so we don't mix 
WASP Pool results/etc.). 

07/26/2000 JAMIE Modified to incorporate the changes to process calculations for certain 
55 types of deals prior to others (ie. 3rd party first so that profits can be distributed. 

This change included passing a new parameter to the PSPriceAll function (on which 
pool ("for all)... 

08/25/2000 JAMIE Modified to remove logic that invoked the older calculation 
60 routines. 

02/01/2001 JAMIE Modified to remove the transport section (commented out). 



65 */ 

DECLARE @yCIDEntity VARCHAR(12) 
DECLARE ©yGasMonth DATETiME 
DECLARE @yCurrentStatus VARCHAR(20) 

70 DECLARE EntityCIDCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
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10 



25 



60 



SELECT 

C!D 
FROM 

company 

WHERE 

Entitylndicator=Y 

ORDER BY 

CiD 

f i mijLjiii tJ utJL1AJlUim iJLAUAJL 

* Execute a cursor to calculate based on 

* entity. 

** * **************** «****i 



7 

1 5 OPEN EntityCIDCursor 

FETCH NEXT FROM EntityCIDCursor INTO @yCIDEntity 
WHILE @@FETCH_STATUS = 0 
BEGIN 

r ^ 

* Now only calculate if the month 

* is not currently involved with a 

* calculation of some sort (month 

* needs to be unlocked). 
* 

* If the status was modified and the 

* current status in 'Invoiced' then 

* go and build all of the pipeline 

* actuals. 

30 — ~~~~~ 

7 

DECLARE GasMonthCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

GasMonth, 

35 CurrentStatus 

FROM 

rGasMonth 

WHERE 

GasMonth=@GasMonthx AND 
40 (LockedUser IS NULL OR LockedUser=") 

OPEN GasMonthCursor 

FETCH NEXT FROM GasMonthCursor INTO @yGasMonth,@yCurrentStatus 
WHILE @@FETCH_STATUS = 0 
BEGIN 

45 r „„ ii „ 1 ^^„- 

* Indicate that the gas month is in 

* progress so that no one else tryes to 

* calculate at the same time. 



50 ********* ***** ********** 

7 

UPDATE 

rGasMonth 
SET 

55 LockedUsep'PSPriceAutoM', 

LockedDate=getdate() 

WHERE 

GasMonth=@GasMonthx 

r 



* Calculate prices on ali sales deals... 



7 

EXECUTE usp_PSPriceAll 
65 @GasMonthx l 1 ) @WhichVoiumex,0 I @yClDEnt^ty; , 

/* 



* Calculate 'Other Costs' associated to 

* all sales deals (required here in 
70 * order to post the other cost amounts 
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* to WASP pools/etc-.. 



7 

EXECUTE usp_PSPriceCostA!1 

5 @GasMonthx,@WhichVolumex,@yCIDEntity l 1 

/* jLAmJlJLjLAJLJLUJU , l „„„ fafln 

* Now create the temporary WASPRouting 

* table entries for ail products, services 
10 * and wasp types. The calculations will 



15 



* not 'walk back' from safe to purchase 

* here (unless OLD routing month)... 

7 

EXECUTE usp.PSPriceWASPCalc 

@GasMonthx,@WhichVolumex,@yCiDEntity 

r 

* If new routing method then resolve based 
20 * on entity and IncludelnWasp pool. This 

* is done this way in order to potentially 

* distribute proceeds from 3rd party 

* deals back to either a WASP pool meter 

* or to another deal... 



25 



30 



35 



40 



50 



65 



* 1 . Resolve and price 'None' pool. 
*2. Divie out any proceeds. 

* 3. Resolve and price 'Dedicated' pool. 

* 4. Resolve and price 'Common' pool. 

V 

EXECUTE usp_PSPriceWASPCalcResolveDriver 
©GasMonthx^WhichVoiumex.QyCIDEntity/None 1 

EXECUTE usp.PSPriceAII 
@GasMonthx,0 I @WhichVolumex,0 P @yCIDEntity I , Norle , 

EXECUTE usp.PSPriceCostAII 
@GasMonthx P @WhichVolumex ( @yCIDEntity ) 0;None , 

EXECUTE usp_PSPriceWASPDivieOutProceedsN 

@GasMonthx,@WhichVolumex,@yClDEn% 

EXECUTE usp_PSPriceWASPCaicResolveDriver 
@GasMonthx 1 @WhichVolumex ( @yCIDEntity:Dedicated' 

EXECUTE usp_PSPriceAII 
@GasMonthx,O l @WhichVolumex ) 0,@yCIDEntlty;Ded!cated , 

EXECUTE usp_PSPriceCostAII 
@GasMonthx t @WhichVolumex,@yC!DEntity,0;Dedicated' 

EXECUTE usp.PSPriceWASPCalcResoiveDriver 
©GasMonthx^WhichVolumex^yCiDEntity/Common' 

EXECUTE usp__PSPriceAil 
@GasMonthx,0,@WhichVolumex f O,@yCiDEntity;Common' 

EXECUTE usp_PSPriceCostAII 
@GasMonthx l @WhichVolumex,@yClDEntity,0, , Common , 

i* 



* Calculate Transport contract gas inventory 
55 * items (create them along with any 

* transport d eals). 

EXECUTE usp_PSPriceTransportAII 

@GasMonthx,@WhichVolumex,O t @yCIDEntily 
60 */ 

/* 



* Indicate that the gas month is finished 

* and commit the updates. 



7 

UPDATE 

rGasMonth 
SET 

70 LockedUser=" 
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WHERE 

GasMonth=@GasMonthx 

r 



5 * Check to make sure that any items that 

* require an invoice number gets created. 

* This is only applicable when the gas month 

* is in an 'Invoiced' state already. This 

* picks up any new deafs/meters created 

1 0 * after the gas month promoted to 'Invoiced'. 



*/ 

IF (QyCurrentStatus^invoiced') 
BEGIN 

1 g EXECUTE usp.PSPriceAnyNewlnvoicesNeeded 

@yGasMonth,@yCIDEntity 

END 

FETCH NEXT FROM GasMonthCursor INTO 

@yGasMonth,@yCurrentStatus 
20 END 

CLOSE GasMonthCursor 

DEALLOCATE GasMonthCursor 

FETCH NEXT FROM EntityCIDCursor INTO ©yClDEntity 

END 

25 CLOSE EntityCIDCursor 

DEALLOCATE EntityCIDCursor 
END 



30 



35 GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
40 GO 

CREATE PROCEDURE usp_PSPriceComponentsCheck( 



45 



AS 

BEGIN 

50 r ' 



Name: usp_PSPriceComponentsCheck 
Description: 

55 

Create any system generated pricing components automatically. Any existing 
system generated pricing components are deleted. Then they are recreated 
within this particular process. This procedure should be invoked for all 
packages that were created within a given gas month. Current System 
60 Generated Items include price components tagged as 'NETBACK PERCENTAGE' or 

'WASP'. 

Inputs: 

65 PIDx- Package identifier 

WhichPricex - 0=Nominations, 1=Actuals 
GasMonthx - Gas Month for Price Calculations 
DBCRx - 0=Purchase, 1=Sales 

70 History: 



@PIDx INTEGER, 
©WhichPricex INTEGER, 
©GasMonthx DATETIME, 
©DBCRx INTEGER 
) 
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10 



45 



05/12/1999 JAMIE Original Creation. 

07/28/2000 JAMIE Modify this process so that OIL, GAS or LIQUIDS is used when 
obtaining the netback percentage. This is based on the product ID for the deal. 

08/17/2000 JAMIE Modify the process to eliminate any pricing entries on 
WASP/EQUITY deals ('Common' pool). This will ensure that the only pricing 
entries on the wasp deals are those that are system generated. 



15 * Declare all variables and cursors 

* that are needed by this process. 



*/ 

DECLARE @zProductlD INTEGER 
20 DECLARE ©zProductNetbackType VARCHAR(12) 

DECLARE ©yWasplndicator VARCHAR{10) 

DECLARE ©yEngineMasterRecords INTEGER 

DECLARE @yEngineMasterETID_Key INTEGER 

DECLARE @yEngineMasterPriceSequence INTEGER 
25 DECLARE ©yNetBackPercentage DECIMAL(19,8) 

DECLARE ETiDCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

DISTINCT 

30 ETID 
FROM 

Engine_Master 

WHERE 

PID=@PIDx 

35 !* ._, : ,, ,uu iUUUUU 

* Get the WASP indicator for this 

* particular deal via a function call. 

* This is based on how the deal is 
40 * classified. 



*/ 

EXECUTE usp_fGetWasplndicator @PIDx p @yWasplndicator OUTPUT 



* All deals should have system generated 

* price entries removed here... 



* In addition, 'Common' wasp pool deals 
50 * will have ail non system generated 

* price entries removed. Only purchase 

* deals are impacted by system generated 

* entries. 

55 */ 

OPEN ETiDCursor 

FETCH NEXT FROM ETiDCursor INTO @yEngineMasterETID_Key 
WHILE @@FETCH_STATUS = 0 
BEGIN 

60 !F ©yWasplndicator^Common' 

BEGIN 

IF @DBCRx=0 

BEGIN 

DELETE 

65 ^ FR0M 

Engine_MasterPrice 

WHERE 

{Engine JtesterPrice.ETiD=@yEngineMasterETID_Key) AND 
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(Engine_MasterPrice.NomOrActual=@WhichPricex) 

END 

END 

5 ELSE 

BEGIN 

DELETE 

FROM 

Engine_MasterPrice 

10 WHERE 

(Engine JfeterPrice.ETID=@yEngineMasterETID_Key) AND 

(Engine JVIasterPrice.NomOrActual=@WhichPricex) AND 
1 5 (EngineJv1asterPrice.PriceTag=ANY(SELECT 

PriceTag FROM PriceComponents WHERE SystemGenerated=Y)) 

END 

FETCH NEXT FROM ETiDCursor INTO @yEngineMasterETlD„Key 

END 

20 CLOSE ETiDCursor 

DEALLOCATE ETiDCursor 
I* 

* Now generate (insert) the price 

25 * components that are required. These 

* system generated price components are 

* recognized by the PriceTag name. There 

* should be a section within this procedure 

* specifically for any system generated 
30 * pricing components, 

7 

r 



55 



35 * "WASP" and "NETBACK PERCENTAGE" 

* 

* These two compononents go hand-in-hand. 
# 

* 1 Only system generate these if it is 

40 * a purchase task and the deal is considered 

* 'Wasp'abie. 

7 

IF ((©yWasplndicatoR'Common') OR (@yWasplndicator='Dedicated')) AND (@DBCRx-0) 
45 BEGIN 

r 

* Determine the correct product type in order 

* to get the correct contract netback 
50 * tier information. 

7 

EXECUTE uspJGetWaspType @PIDx,@zProductNetbackType OUTPUT 



* Now go and find an Engine_Master record 

* to attach these components too. If one 

* is not found, then insert one. An 

* attempt to preserve the existing record 
60 * will ensure that nominations and pipe 

* line actuals will utilize the same 

* Engine_Master entity. 

7 

6 5 SELECT @yEngineMasterRecords = ISNULL((SELECT count(*) FROM engine .master 

WHERE PID=@P!Dx 

AND Effective=@GasMonthx AND STID=8 AND VolLevel=0),0) 
IF @yEngineMasterRecords=0 
BEGIN 

70 INSERT 
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INTO 

Engine_Master 

(PID.Effective.STID.VolLeveUolGroup.VarFixed.MMBtuMCFJierThreshold) 
5 VALUES 

(@PlDx,@GasMonthx ! 8 f 0 l @PIDx l 1,1 ) 1) 

END 

SELECT @yEngineMasterETD_Key = ISNULL«SELECT MIN(ETiD) FROM Engine.Master 

WHERE PiD=@PIDx 

1 0 AND Effective=@GasMonthx AND STID=8 AND VolLevel=0),0) 

Lu u iu uuauu uu u uu uuui 

* At this point we now either have a valid 

* ETiD (key) to the Engine Jvlaster or 0. 

1 5 * There should be only a single record on 

* the Engine Jvlaster for these types of 

* packages. 



20 



* Now insert the 'WASP' pnce component 



*/ 

IF @yEngineMasterETID_Key > 0 
BEGIN 

SELECT @yEngineMasterPriceSequence = !SNULL({SELECT 

25 MAX(SequenceNo) FROM Engine_MasterPrice 

WHERE ETID=@yEngineMasterETID_Key AND NomOrActuai=@WhichPricex),0) 
SELECT @yEngineMasterPriceSequence = 

@yEngineMasterPriceSequence+1 
30 INSERT 

INTO 

Engine JvlasterPrice 

(ETIDPric^Tag.OperandVariabiePriceVariafale^CreateUserCreateDate.LastUpdateUser, 
35 LastUpdateDate.SequenceNo.NomOrActuai) 

VALUES 

(©yEngtneMasterETID.Key/WASP'.'+vwASP.UPPERtuser.nameO), 

40 getdate() 1 UPPER(user_name()),getdate(),@yEngineMasteif , riceSequence I @WhichPricex) 

END 

/* 

* Now invoke the WETBACK PERCENTAGE' 
45 * calculation routine and then insert this 

* particular price component. Remember to 

* put the netback percentage into its 

* 'string' representation. 

50 */ 

IF ©yEngineMasterETID _Key > 0 
BEGIN 

EXECUTE uspJGetNetbackPercentage 
@PIDx ( @GasMonthx,@zProductNetbackType,@WhichPricex,@yNetBackPercentage OUTPUT 
55 IF ©yNetBackPercentage IS NULL 

BEGIN 

SELECT ©yNetBackPercentage = 0 

END 

SELECT ©yEngineMasterPriceSequence = 



60 @yEngineMasterPriceSequence+1 



INSERT 

INTO 

Engme_MasterPrice 



65 (ETiD.PriceTag.OperandVariablePriceVariable.CreateUser, 

CreateDate^astUpdateUser,LastUpdateDate,SequenceNo,NomOrActua!) 

VALUES 

(@yEngineMasterETlD_Key,' NETBACK 

70 PERCENTAGE7* LTRiM(STR{@yNetBackPercentage,8,4)), 
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20 



45 



UPPER(CURRENT_USER) ( getdate() ( UPPER(CURRENT_USER) t getdate(),@yEngineMasterPriceSequence 
,@WhichPricex) 

END 

END 

END 



10 



GO 

15 SET QUOTED ^IDENTIFIER OFF SET ANSI.NULLS ON 

GO 



SET QUOTED J DENTIFIER OFF SET ANSI.NULLS ON 
GO 



CREATE PROCEDURE usp_PSPriceCost( 

©GasMonthx DATETIME, 
@WhichPricex INTEGER, 
@PKGx INTEGER, 

25 @STlDx INTEGER, 

@PClDx INTEGER, 
@TIDx INTEGER, 
@CostLeveixVARCHAR(12), 
@CostBasisxVARCHAR(40), 

30 ©CostRateOrAmountx DECiMAL(19,6), 



©TotalVolumex DECiMAL(19,2), 
©MeterVoiumex DEC1MAL(19,2) 



AS 

35 BEGIN 

r 



Name: usp.PSPriceCost 

40 Description: This particular procedure will perform the actual calculations and post 

updates to the engine table (for other costs associated with deals). This is done 
for each meter within a deal for an other cost item. 



Inputs: 



GasMonthx (Gas Month to cost) 

WhichPricex (Q=Nominations, ^Actualizations) 

PKGx (deal id) 

STIDx (engine transaction id) 
50 PCIDx (deal other cost unique id (see PackageCosts table) 

TIDx (gas inventory identifier) 

Coslevelx (Level that cost is appropriated towards) 

CostBasisx (rules governing calculation of the cost) 

CostRateOrAmountx (rate or amount involved in cost) 
55 TotalVoiumex (total volume for deal) 

MeterVolumex (total volume for meter within deal). 

History: 

60 10/20/99 JAMIE Initial creation. 

03/26/00 JAMIE Modified to allow for zero volume deals to have other (fixed) costs 
assigned to them. 

65 10/03/20 JAMIE Modified to correct problem associated with 'METER' 

calculations using entire deal volume. 

12/01/2000 JAMIE Modified to apply the netback percentage to the other 
cost when it is calculated. This percentage is only applicable to purchase 
70 deals that are in the 'Common' or 'Dedicated' pools. 
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12/10/2000 JAMIE Modified to check for the apply netback flag on the 
cost record in order to determine if the netback percentage should be 
applied to the cost. 

5 



7 

/* 



1 0 * Declare all variables and cursors 

* that are needed by this process. 

7 

DECLARE ©zNetbackPercent DECIMAL(19,6) 
1 5 DECLARE ©zProductNetbackType VARCHAR(12) 

DECLARE @yWasplndicator VARCHAR(10) 
DECLARE @zDBCR INTEGER 
DECLARE ©zApplyNetback VARCHAR(1) 

20 DECLARE ©zPercentToApply DEC!MAL(19,4) 

DECLARE QzAmountToAppiy DECIMAL{19,2) 
DECLARE @2lotalSaieOrPurch Value DECIMAL(19,2) 
DECLARE ©zTotalMeters INTEGER 

25 /* uum iml , 1 .... U uiimuu 

* Initialize any fields required. 



7 

30 SELECT @zNetbackPercent=0 
SELECT @zAmountToApply=0 
SELECT @zPercentToApply=1 
SELECT @zTotalSaleOrPurchValue=0 
/* 

35 "* — " 

* Get the WASP indicator for this 

* particular deal via a function call. 

* This is based on how the deal is 

* classified. 
40 ' 

7 

EXECUTE uspJGeWVasplndicator @PKGx,@yWasplndicator OUTPUT 
SELECT @zDBCR=tSNULL((SELECT packagedbcr FROM package WHERE pkg=@PKGx),0) 
SELECT @zApplyNetback=iSNULL((SELECT applynetback from packagecosts WHERE pcid=@PC!Dx),Y) 
45 r 



* Determine the correct product type in order 

* to get the correct contract netback 

* tier information. 

50 ***** ' 

7 

IF @zDBCR=0 

BEGIN 

IF (©yWasplndicator^Common') OR (@yWasplndicator='Dedicated') 
55 BEGIN 

EXECUTE usp JGetWaspType @PKGx,@zProductNetbackType 

OUTPUT 

EXECUTE uspJGetNetbackPercentage 
@PKGx,@GasMonthx,@zProductNetbackType,@WhichPricex f @zNetbackPercent OUTPUT 
60 END 
END 

/* 



* Determine the percentage of whatever the 
6 5 * cost will calculate to here. 

* involved with this calculation. If it 

* is a deal level fixed cost then show 

* zeros IF there is no volume. 



70 7 
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IF (@MeterVolumex<>0) AND (@TotalVolumex<>0) 
BEGIN 

iF@CostLevelx='DEAL' 
BEGIN 

SELECT 

@zPercentToApply=CONVERT(DECIMAL(19,4),@MeterVolum 

END 

END 

IF (@MeterVolumex = 0) AND (@CostLeve!x-DEAL') 
BEGIN 

SELECT @zPercentToApply=0 

END 

r 



* If the cost is a FIXED AMOUNT and there 

* is no volume for the deal then determine 

* the amount to apply based on the number 

* of meters involved in the deai. If1 

* meter only then 100% of cost assessed to 

* that meter. If 2 meters then 50% assessed 

* to each one. etc.. 



*/ 

IF (@MeterVolumex=0) AND (@TotalVolumex=0) 
BEGIN 

IF ©CostBasisx- Fixed Amount* 
BEGIN 

SELECT @zTotalMeters=ISNULL((SELECTcount(*) FROM Gaslnv 
WHERE PKG=@PKGx AND GasMonth=@GasMonthx),Q) 

IF@zTotaiMeters <>0 
BEGIN 

SELECT 

@zPercentToApply=(iyCONVERT(DECIMAL(19,4),@zTotalMeters)) 

SELECT 

@zAmountToApply=(@CostRateOrAmountx*@zPercentToAppiy) 

END 

END 

END 

r 



* Calculate based on fixed amount 

* here... Since this is a fixed amount 

* then the amount should be calculated 

* proportionately based on the total 

* volume percentage to the deal 



7 

IF @CostBasisx='Fixed Amount 
BEGIN 

IF (@CostRateOrAmountx<>0) AND (@zPercentToApply<>0) 
BEGIN 

SELECT 

@zAmountToApply=(@CostRateOrAmountx*@zPercentToApply) 

END 

END 

r 



* Calculate based on a rate applied 

* against MMBTU's here... Regardless 

* of whether or not this is a 'DEAL' 

* level or 'METER' level charge the 

* cost should be based on meter 

* volume. 



7 

IF (@MeterVo!umex<>0) 
BEGIN 

IF @CostBasisx='Rate Applied to MMBTUs' 
BEGIN 

IF (@CostRateOrAmountx<>0) 
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BEGIN 

SELECT 

@zAmountToApply^(CONVERT(DEa 

END 

5 END 
END 

/* 

* Calculate based on the total dollar amount 
1 0 * previously calculated here... Since 

* this particular cost is calculating on 

* just the amount for the associated 

* meter (ie.. sum of engine based on 
*TID) then the 'PercentToApply' is 

15 * not applicable. ______ 

7 

IF (@MeterVolumex<>0) AND (@TotalVoIumex<>0) 
BEGIN 

20 IF @CostBasisx='Rate Applied to Value' 

BEGIN 

IF @WhichPricex=0 
BEGIN 

SELECT 

25 @zTotalSaleOrPurchValue=ISNULL((SELECT SUM(amount) FROM engine WHERE tid=@tidx AND (stid=8 OR 

stid=9)),0) 

END 

IF @WhichPricex=1 
BEGIN 

30 SELECT 

@zTotalSaleOrPurchValue=ISNULL((SELECT SUM(amountact) FROM engine WHERE tid=@tidx AND (stid=8 OR 
stid=9)),0) 

END 

if(@CostRateOrAmountx<>0) AND (@zTotatSaleOrPurchValue<>0) 
35 BEGIN 

SELECT 

@zAmountToApply=(@zTotalSaleOrPurchVaIue*@CostRateOrAmountx) 

END 

END 

40 END 

r 

* Finally, post the cost amount to the 

* Engine table. If the engine table for 
45 * this transaction does not yet exist then 

* insert it, otherwise just update it... 
* 

* Make sure that actual calculations and 

* nomination calculations are done within 
50 * their respective 'buckets'. 

7 

r 



55 * First apply the netback if it 

*is there AND if the apply 

* netback flag has been set 

* on the cost item. 



60 7 

IF@'zApp!yNetback = T 
BEGIN 

IF @zNetbackPercent<>0 
BEGIN 

65 ^ SELECT 

@zAmountToApply=ROUND((@zAmountToApply*@zNetbackPercent),2) 

END 

END 

/* 

70 ™ 
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65 



* Apply and post the amount 

* here... 

*/ 

5 IF @WhichPncex=0 

BEGIN 

IF (SELECT countC) FROM Engine WHERE TID=@T!Dx AND ST!D=@STIDx AND 
Effective=@GasMonthx AND VoiLevel=0)=0 

BEGiN 

10 INSERT 

INTO 

Engine 

(TiD,ST!D,Effective,VolLevei,VolGroup^^ 
1 5 meAct,AmountActEM_ETID) 

VALUES 

(@TiDx ( @STIDx t @GasMonthx I 0,@PKGx ) 1 ) 0,ROUND(@zAmountToApply,2) t 0 l 0 l 0 ) 0,@PCIDx) 
END 

20 ELSE 

BEGIN 

UPDATE 

engine 
SET 

25 

Amount=Amount+ROUND{@zAmountToApply,2) 

WHERE 

TID=@TIDx AND 
STID=@STIDxAND 

30 Effective=@GasMonthx AND 

VolLevel=0 

END 

END 

IF @WhichPricex=1 
35 BEGIN 

IF (SELECT countO FROM Engine WHERE TiD=@TiDx AND STID=@STIDx AND 
Effective=@GasMonthx AND VolLevel=0)=0 

BEGIN 

INSERT 

40 tNTO 

Engine 

(TID,STID,EffectweyolLevei,Vo^ 
meActAmountAct,EM_ETID) 
45 VALUES 

(@TIDx t @STiDx 1 @GasMonthx I 0 t @PKGx,l,0 t 0 ) 0,0,0 ( ROUND(@zAmountToApply,2),@PCIDx) 
END 

ELSE 

50 BEGIN 

UPDATE 

engine 
SET 

55 AmountAct=AmountAct+ROUND(@zAmountToAppiy,2) 

WHERE 

TlD=@TIDx AND 
STID=@STiDxAND 
Effective=@GasMonthx AND 
60 VolLeveM) 

END 

END 



END 



70 GO 
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SET QUOTED .IDENTIFIER OFF SET ANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
5 GO 

CREATE PROCEDURE usp PSPriceCostAli( 

©GasMonthx DATET1ME, 
©WhichPricex INTEGER, 

10 ©EntityCIDx VARCHAR{12), 

@DBCRx INTEGER, 
©InciudeinWaspx VARCHAR(10) 
) 

AS 

1 5 BEGIN 
I* 



Name: usp_PSPriceCostAll 

20 Description: Loop thruough all other costs associated to deals within a given month 

then apply the cost to the dean (posting engine records reflecting the cost amounts), 
or sale) and invoke the price procedures. 

Inputs: 

25 

GasMonthx - Gas Month to price), 
WhichPricex -0=Nominations t ^Actualizations 
EntityClDx - owning entiry company identifier 
DBCRx - 0=Purchases, 1=Sales (deals) 
30 IncludelnWaspx = " for all or specific pool (ie. 'Common 1 , etc.). 

History: 

10/20/99 JAMIE Initial creation. 

35 

03/26/00 JAMIE Modified to allow for zero volume deals to have other (fixed) costs 
assigned to them. 

05/24/2000 JAMIE Modified to make sure that the calculation was within a specific 
40 entity. 

10/03/2000 JAMIE Modified to accept two additional parameters to dictate which 
pool and whether or not purchases or sales were to be calculated upon... 

45 * ~" — ~ — 

r 



* Declare all variables and cursors 
50 * that are needed by this process. 

*/ 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zTotalVolume DECIMAL{19,2) 
55 DECLARE ©zMeterVolume DECIMAL(19,2) 

DECLARE ©zVolumeStatus INTEGER 
DECLARE @zPriceStatus INTEGER 
DECLARE @zincludelnWasp VARCHAR(10) 

60 DECLARE ©yPCID INTEGER 

DECLARE @yPKG INTEGER 

DECLARE @ySTID INTEGER 

DECLARE ©yCoslevel VARCHAR(12) 

DECLARE ©yCostMID INTEGER 
65 DECLARE @yCostBasisVARCHAR(40) % 

DECLARE ©yCostRateOrAmount DECiMAL(19,4) 

DECLARE @wTID INTEGER 
DECLARE ©wNorn DEC1MAL(19,2) 
70 DECLARE ©wPipelineActuals DECIMAL(1 9,2) 
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DECLARE @wGaslnv_M!D INTEGER 



DECLARE @eETID INTEGER 
DECLARE ©eVolume DECIMAL{19,2) 
5 DECLARE ©ePriceOrRateNom DEC!MAL(19,6) 

DECLARE @eVolumeActDECiMAL(19,2) 
DECLARE ©ePriceOrRateAct DECIMAL(19,6) 
DECLARE ©evoiumestatus INTEGER 
DECLARE ©epricestatus INTEGER 
1 0 DECLARE @ePKG tNTEGER 

DECLARE PackageCostsCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

PackageCostsPCID, 
1 5 PackageCostsPKG, 

PackageCosts.STID, 

PackageCosts.CostLevel, 

PackageCosts.CostMID, 

PackageCosts.CostBasis, 
20 PackageCosts.CostRateOrAmount 

FROM 

PackageCosts 

WHERE 

PackageCosts.PKG=ANY(SELECT PKG FROM Package* WHERE 
25 PackageGasMonth=@GasMonthx AND 

K.KID=Package.KlD AND 

K.EntityCiD=@EntityClDx AND Package.PackageDBCR=@DBCRx) 
ORDER BY 

PackageCostsPKG, 

30 PackageCosts.STID 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

engine.etid, 

35 engine.volume, 

engine.priceorratenom, 
engine.volumeact 



engine.volumestatus, 
40 engine.pricestatus, 



FROM 



package.pkg 



engine, 
gasinv, 

45 package, 

k 

WHERE 

package.pkg=gasinv.pkg AND 
k.kid=package.kid AND 
50 k.entitycid=@entitycidx AND 

gasinv.gasmonth=@GasMonthx AND 
engine.tid=gasinv.tid AND 
gasinv.pricetype=1 AND 
gasinv.dbCF@DBCRx 

55 r 



* Loop through each other package cost 

* involved with this calculation. 



60 */ , 

SELECT ©zMessage = 'PSPriceCostAII Running To Calculate Other Costs for all Deals' 
EXECUTE usp.Message ©zMessage 
OPEN PackageCostsCursor 
FETCH NEXT FROM PackageCostsCursor INTO 
65 ©yPCID^yPKG.igySTID.gyCoslevel.^yCostMlD.gyCostBasis.QyCostRateOrAmount 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

/* 

70 — — 
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VARCHAR(IO)) 



* Sum the appropriate volumes for this 

* deal depending on whether nominations are 

* being calculated OR pipeline actuals are 

* begin calculated. 

7 

SELECT ©zMessage = 'PSPriceCostAII Calculating Costs for Deal...' +CAST{@yPKG AS 



EXECUTE usp.Message @zMessage 
1 o EXECUTE uspJGetWaspindicator @yPKG,@zlnciudelnWasp OUTPUT 

IF (@lncludelnWaspx=") OR (@lncludelnWaspx=@zlncludelnWasp) 
BEGIN 

IF @WhichPricex=0 
BEGIN 

1 5 SELECT @zTotalVolume=ISNULL((SELECT 

SUM(Nom) FROM Gaslnv WHERE Gaslnv.PKG=@yPKG AND Gaslnv.PriceType=1),0) 

END 

IF @WhichPricex=1 
BEGIN 

20 SELECT @zTotalVoiume=ISNULL((SELECT 

SUM(PipeiineActuais) FROM Gaslnv WHERE Gasinv,PKG=@yPKG AND Gaslnv.PriceType=1) ( 0) 

END 

r 

25 * Open a cursor on all meters associated 

* with this deal. ______ 

7 

DECLARE GaslnvCursor CURSOR LOCAL STATIC 

30 FORWARD_ONLY FOR 

SELECT 

Gaslnv.TID, 

Gaslnv.Nom, 

Gaslnv.PipelineActuals, 

35 Gasinv.Gasinv_M!D 

FROM 

Gaslnv 

WHERE 

Gaslnv.PKG=@yPKG AND 

40 Gaslnv.PriceType=1 

OPEN GaslnvCursor 
FETCH NEXT FROM GaslnvCursor INTO 
@wTID t @wNom t @wPipelineActuals,@wGaslnv_MID 

WHILE @@FETCH_STATUS = 0 
45 BEGIN 

I* 



* Depending on which pricing routine is 

* run, set the appropriate meter volume 
50 *field ^^^ ^ iiuu ui(u[| 

7 

IF @WhichPricex=0 

BEGIN 

55 SELECT 



@zMeterVolume=@wNom 



END 



IF @WhichPricex=1 



BEGIN 

60 . SELECT 



@zMeterVoiume=@wPipelineActuais 



END 



f* 



55 * Invoke the detail cost routine in order 

* to calculate and post the cost totals 

* to the Engine Database. 

7 
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AND @yCostMiD=@wGasinv_MID) 



IF (©yCostLevel-DEAU) OR (@yCoslevel- METER 1 



10 



15 



20 



25 



30 



©GasMonthx^WhichPricex.gyPKCgySTID.gyPCID, 

@wTID,@yCostLevel,@yCostBasis,@yCostRateOrAmount, 
@zTotalVolurne,@zMeterVotume 



BEGIN 

EXECUTE usp_PSPriceCost 



END 



FETCH NEXT FROM GasinvCursor INTO 

@wTID,@wNom,@wPipe!ineActuals,@wGaslnv_MID 

END 

CLOSE GasinvCursor 
DEALLOCATE GasinvCursor 

END 

COMMIT WORK 

FETCH NEXT FROM PackageCostsCursor INTO 
©yPCID.QyPKG^ySTID.gyCoslevel^yCostMID.QyCostBasis^yCostRateOrAmount 
END 

CLOSE PackageCostsCursor 
DEALLOCATE PackageCostsCursor 
r 

* Loop through and set the status flags 

* on the engine record IF the price or 

* volumes or amounts are different 

* between noms and actuals. Make 

* sure the logic exists to only calculate 

* those deals (purchases or sales) 

* within the correct WASP pool. 



35 



40 



45 



50 



55 



60 



65 



V 

IF @WhichPricex=1 
BEGIN 



Indicators...' 



SELECT ©zMessage = 'PSPriceCostAII Running To Set Price & Volume Variance Status 



EXECUTE uspj/lessage ©zMessage 
OPEN EngineCursor 

FETCH NEXT FROM EngineCursor INTO 
@eETID,@eVoiume,@ePriceOn^ateNom,^ 

WHILE @@FETCH_STATUS = 0 
BEGIN 

EXECUTE usp JGetWasplndicator @ePKG,@zincludelnWasp 

OUTPUT 

IF (@lncludelnWaspx=") OR (@lnciudeinWaspx=@zlncludelnWasp) 
BEGIN 

r 

* Check prices a nd volumes here. 
*/ 

SELECT @zVoIumeStatus=0 
SELECT @zPriceStatus=0 
IF @eVolume<>@eVoiumeAct 
BEGIN 

SELECT @zVolumeStatus=1 
END 

IF @ePriceOrRateNom<>@ePriceOrRateAct 
BEGIN 

SELECT @zPriceStatus=1 
END 

IF (@zVolumeStatus<>@eVolumeStatus) OR 



(@zPriceStatus<>@ePriceStatus) 



BEGIN 
UPDATE 



engine 
SET 



70 



volumestatus=@zVoIumeStatus, 
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pricestatus=@zPriceStatus 



WHERE 



5 ETID=@eETiD 

END 

END 

FETCH NEXT FROM EngineCursor INTO 

@eETID,@eVolume f @ePriceOr^^ 
10 END 

CLOSE EngineCursor 
DEALLOCATE EngineCursor 

END 

END 

15 



20 

GO 

SET QUOTED .IDENTIFIER OFF SET ANSLNULLS ON 
GO 

25 SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 

GO 

CREATE PROCEDURE usp_PSPriceCreateActua!Entries( 

30 

AS 

BEGIN 

SETNOCOUNTON 

r 

35 — * *~ 

Name: usp_PSPriceCreateActualEntries 

Description: This routine will clear out any existing links and pricing enties 
that may have already been setup for pipeline actuals. It will then copy the 
40 nomination pricing and linking entries for pipeline actuals (within the given 

month). This process should only get invoked with the status of a given month 
within the gas control system goes from 'Sales' to 'Invoiced' at that point in time 
the accounting group will be responsible for any further modifications. 

45 Inputs: 

GasMonthx (Gas Month to calculate), 

History: 

50 

08/04/1999 JAMIE Original creation 

08/25/2000 JAMIE Modified to remove the PackageLinks delete and build 
logic (replaced by new routing structures). 

55 



7 

r 



60 * Declare all variables and cursors 

* that are needed by this process. . 



7 

DECLARE QzMessage VARCHAR(254) 
65 DECLARE @yPKG INTEGER 

DECLARE @yETID INTEGER 
DECLARE @yEM_ETID INTEGER 

r 



70 * Clear out the link and price entry 



©GasMonthx DATETIME 
) 
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* structures for the specified month 

* here... These entries will be 

* recreated (from Nom side) in the 

* next step. 

5 

* Database triggers take care of the 

* individual pricing components in 
*the Engine Jvlast erPrice table. 

10 7 

SELECT @zMessage = 'PSPriceCreateActualEntries, removing Engine JvlasterPrice...' 
EXECUTE uspj/lessage @zMessage 

DECLARE Engine.MasterDeleteCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

15 DISTINCT 

(Engine.Master.ETID) 
FROM 

Engine_Master, 
Gaslnv, 

20 Engine_MasterPrice 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=1 AND 
Gaslnv.PKG=Engine J/lasterPID AND 
25 Engine J/lasterPrice.ETID=Engine_Master.ETID AND 

Engine_MasterPrice.NomOrActual=1 

OPEN Engine_MasterDeleteCursor 

FETCH NEXT FROM EngineJ/lasterDeleteCursor INTO @yEM_ET!D 
WHILE @@FETCH_STATUS = 0 
30 BEGIN 

BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceCreateActualEntries, actual Engine_MasterPrice removed...' 

EXECUTE uspjvlessage @zMessage 

DELETE 

35 FROM 

EngineJ/IasterPrice 

WHERE 

ETiD=@yEMJfriD AND 
NomOrActuaM 

40 COMMIT WORK 

FETCH NEXT FROM Engine_MasterDeleteCursor INTO @yEM_ET!D 

END 

CLOSE EngineJ/lasterDeleteCursor 
DEALLOCATE EngineJ/lasterDeleteCursor 

45 r u ^. Ln , 1Uf „ mof - ro 

* Now bulk populate the engine 

* pricing information. Taking nom 

* pricing entries and creating actual 
50 * pricing entries. 

7 

SELECT @zMessage = 'PSPriceCreateActualEntries, running Gaslnv cursor...' 
EXECUTE usp_Message @zMessage 
55 DECLARE GaslnvCursor CURSOR LOCAL STATiC FORWARD_ONLY FOR 

SELECT 

DISTINCT 

(Gaslnv.PKG) 

FROM 

60 Gaslnv 

WHERE . 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=1 

OPEN GaslnvCursor 
65 FETCH NEXT FROM GaslnvCursor INTO @yPKG 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

SELECT @zMessage = 'PSPriceCreateActualEntries, obtaining price entries for Gaslnv 

70 



-77- 



EXECUTE usp.Message @zMessage 

DECLARE Engine.MasterCursor CURSOR LOCAL STATIC FORWARD .ONLY FOR 
SELECT 

DISTINCT 

5 (ETID) 

FROM 

Engine.Master 

WHERE 

PID=@yPKG 

1 0 OPEN Engine_MasterCursor 

FETCH NEXT FROM Engine_MasterCursof INTO @yETID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT ©zMessage = 'PSPriceCreateActualEntries, inserting actual 

1 5 prices...' 

EXECUTE usp.Message @zMessage 
INSERT 

INTO 

EngineJvlasterPrice 

20 

(ETID.PriceTag.OperandVariable.PriceVariable.CreateUser, 

CreateDate,LastUpdateUser,LastUpdateDate,SequenceNo,NomOrActual) 

(SELECT 

25 ETlD,PriceTag l OperandVariablePriceVariable ( CreateUser,CreateDate,LastUpdateUser,LastUpdateDate, 

SequenceNo,1 FROM Engme.MasterPrice 

WHERE ETID=@yETID AND NomOrActuai=0) 

FETCH NEXT FROM Engine.MasterCursor INTO @yETID 

END 

30 CLOSE Engine.MasterCursor 

DEALLOCATE Engine.MasterCursor 
COMMIT WORK 

FETCH NEXT FROM GasinvCursor INTO @yPKG 

END 

35 CLOSE GasinvCursor 

DEALLOCATE GasinvCursor 
END 



40 



GO 

SET QUOTEDJDENTIFIER OFF SETANSINULLS ON 
45 GO 

SET QUOTEDJDENTIFIER OFF SETANSI.NULLS ON 
GO 

50 CREATE PROCEDURE usp_PSPriceMarkActualAdjustments( 

@GasMonthx DATETIME 
) 

AS 

BEGIN 

55 SETNOCOUNTON 

r 



Name: usp.PSPriceMarkActualAdjustments 

60 Description: This routine will go through each inventory (and engine 

records) in order to identify and mark those records that had some sort of 
an actualization adjustment (price or volume). The invoice number for sales 
will get reset to a 'A' (last character) if it currently exists as an 'N\ 

65 Inputs: 

GasMonthx (Gas Month to calculate), 

History: 

70 
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12/15/1999 JAMIE Original creation 



7 

r 



* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE @zMessage VARCHAR(254) 

DECLARE @yAcctgldentifier VARCHAR(12) 
DECLARE ©zAcctgldentifier VARCHAR(12) 
DECLARE ©zLastChar VARCHAR(1) 
DECLARE @zlnvoiceLength INTEGER 

DECLARE @qT!D INTEGER 

r 



* First set the modified by actuals flag 

* across the board for all gasinventory 

* items that have a price type of '1 1 

* (this includes 'Other Costs'. 
* 

* The defaults is set to 'N' then go 

* and override with changes. 



7 

SELECT @zMessage = ***** STARTED PSPriceMarkActualAdjustments' 
EXECUTE usp .Message ©zMessage 

DECLARE Gasinvl Cursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

TID 
FROM 

Gaslnv 

WHERE 

GasMonth=@GasMonthx AND 
PriceType=1 

OPEN GasinvlCursor 

FETCH NEXT FROM GasinvlCursor INTO @qTlD 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 
UPDATE 

Gaslnv 
SET 

ModifiedByActuals-N' 

WHERE 

TID = @qT!D 

COMMIT WORK 

FETCH NEXT FROM GasinvlCursor INTO @qTID 

END 

CLOSE GasinvlCursor 
DEALLOCATE GasinvlCursor 

r 



* At this point all of the gas inventory 

* items that have had some sort of 

* modification done on them between 

* noms and actuals will have been 

* updated to a Y. Now go and reset 

* the accounting identifier for each of 

* these records. 



7 

SELECT @zMessage = 'PSPriceMarkActualAdjustments, make any modifiications' 
EXECUTE uspJVIessage @zMessage 

DECLARE Gaslnv2Cursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
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SELECT 



10 



15 



20 



DISTINCT 
(G.Acctg identifier) 
FROM 



WHERE 



GasinvAS G, 
Engine AS E 

GasMonth=@GasMonthx AND 
G.PriceType=1 AND 
E.TiD=G JID AND 

(EPriceStatusoO OR E.VolumeStatus<>0) 



OPEN Gaslnv2Cursor 
FETCH NEXT FROM Gaslnv2Cursor INTO ©yAcctgldentifier 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

* Make sure that it is a valid 6 digit 

* invoice number AND the sixth digit 

* contains an 'N' (for noms). 

* Update all if this criteria has been 
•met 



25 



30 



35 



*/ 

SELECT @zlnvoiceLength=LEN(RTRlM(LTRIM(@yAcctgldentifter))) 
IF @zlnvoiceLength=6 
BEGIN 

SELECT @zAcctgtdentifier=RTRIM(LTRlM(@yAcctgldentifier)) 
SELECT @zLastChar=RIGHT(@zAcctg Identifier, 1 ) 
IFQzLastChaF'N* 
BEGIN 

SELECT @zAcctgldentifier=LEFT(@zAcctg ident,fier,5)+'A' 
UPDATE 

Gaslnv 
SET 

ModifiedByActuals='Y', 



40 



45 



50 



55 



GasMonth=@GasMonthx AND 
Acctgldentifier=@yAcctgldentifier 



WHERE 



END 



END 

COMMIT WORK 

FETCH NEXT FROM Gaslnv2Cursor INTO @yAcctgldentifier 

END 

CLOSE Gaslnv2Cursor 
DEALLOCATE Gasinv2Cursor 

SELECT @zMessage = '**** FINISHED PSPriceMarkActualAdjustments' 

EXECUTE usp.Message @zMessage 

END 



60 



65 



70 



GO , 

SET QUOTED JDENTIFIER OFF SET ANSLNULLS ON 
GO 

SET QUOTED JDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPricePopuiateEngine( 



@PIDx INTEGER, 
@WhichPricex INTEGER, 
@GasMonthx DATETIME, 



-80- 



@DBCRx INTEGER 

) 

AS 

BEGIN 

5 ' r 



Name: usp_PSPricePopulateEngine 

Description: Make sure that the price entries are populated on the engine 
1 0 master for the respective Engine_Master pricing records. Only those 

engine records with pricetype=1 (STiD=8 or STID=9) will be manipulated by 
this process. 

Inputs: 

1 5 PiDx (unique Package ID) 

WhichPricex(0=Nomination, 1=Actual) 

GasMonthx (gas month calculation applicable toward) 

DBCRx (0=Purchase,1=Saie) 

20 History: 

05/14/99 JAMIE Original Creation 

09/27/99 JAMIE Modify this process to check for index baskets AND IF the 
25 index basket is comprised of daily indices then populate the entire month 
with the basket information. 

01/27/00 JAMIE Modified to delete engine records while in the actuals phase 
if the nom information is zero (all nom information, price, volume, amount, etc.). 

30 



7 

r 



35 * Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE ©dPriceEntryType VARCHAR(12) 

40 DECLARE ©dPrice Variable VARCHAR(1 5) 

DECLARE ©tmpDailylndexCount INTEGER 
DECLARE ©tmpUseEffective DATETIME 
DECLARE ©tmpEndDate DATETIME 
DECLARE ©tmpPrevEffective DATETIME 

45 DECLARE @tmpNextEffectiveDate DATETIME 

DECLARE ©tmpNumberDays DATETIME 
DECLARE ©tmpVolumelnPeriod DECIMAL(19,2) 
DECLARE ©tmpDateToUse DATETIME 
DECLARE @tmpEndEffectiveDate DATETIME 

50 DECLARE @yETID INTEGER 

DECLARE ©yEffective DATETIME 
DECLARE @ySTID INTEGER 
DECLARE ©yVolLevel INTEGER 
DECLARE ©yVolGroup INTEGER 

55 DECLARE ©yVarFixed INTEGER 

DECLARE ©yMMBtuMCF INTEGER 
DECLARE ©yTierThreshold INTEGER 

DECLARE @yTID INTEGER 

60 

I* ' ' 



* First Go out and delete entries off the 

* engine database related to this particular 
65 * package, if the pipeline actuals are 

* being processed then just go and 

* initialize any existing Engine record 

* 'Actual' buckets to zero (leave the 

* preexisting engine records intact). 

70 
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* Modified on 01/27/2000 to delete engine 

* records off actuals IF there are no nom 

* numbers stored on the records... 



IF@WhichPricex=0 
BEGIN 



DELETE 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



FROM 
WHERE 

PriceType=1 AND DBCR=@DBCRx) 
END 

IF @WhichPricex=1 
BEGIN 

DELETE 

FROM 
WHERE 

PriceType=1 AND DBCR=@DBCRx) AND 



Engine 

TID=ANY(SELECT TID FROM Gaslnv WHERE PKG=@PIDx AND 



UPDATE 



Engine 
SET 



WHERE 



Engine 

TID=ANY(SELECT TID FROM Gaslnv WHERE PKG=@PIDx AND 

PriceOrRateNom=0AND 
Volume=0 AND 
Amount=0 



PriceOrRateAct=0, 

VolumeAct=0, 

AmountAct=0 

TID=AN Y(SELECT TID FROM Gaslnv WHERE PKG=@PIDx AND 



PriceType=1 AND DBCR=@DBCRx) 
END 

I* 

* First, do a loop on all of the 

* EngineJVIaster records in order to 

* remove any that don't have any price 

* records associated to it.. (Orphans).. 

* A commit point is placed here in order to 

* insure that subsequent cursor activity 

* only picks up valid price records. 

7 

DECLARE Engine_MasterCursor1 CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

em.ETID, 

em.Effective, 

em.STID, 

em.VoiLevel, 

em.Vo!Group, 

em.VarFixed, 

em.MMBtuMCF, 

em.TierThreshold 

FROM 

Engine.MasterAS em 

WHERE 

(em.PID=@PIDx) 

ORDERLY 

em.Effective 

OPEN Engine_MasterCursor1 

FETCH NEXT FROM Engine_MasterCursor1 INTO 

©yETID^yEffective.QySTID^yVolLevei^yVolGroup^yVarFixed^yMMBtuMCF.QyTierThresho 
WHILE @@FETCH_STATUS = 0 
BEGIN 

IF !SNULL((SELECT count(*) FROM Engine_MasterPrice WHERE ETiD=@yETID),0) < 1 
BEGIN 

DELETE 
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FROM 

Engine_Master 

WHERE 

ETID=@yETID 

5 END 

FETCH NEXT FROM Engine_MasterCursor1 INTO 
@yETiD,@yEffe(rtve,@ySTID,@ym 
END 

CLOSE EngineJ/lasterCursorl 
1 0 DEALLOCATE Engine_MasterCursor1 

* Now loop through the existing 

* Engine Jvlaster records. These are the 
1 5 * actual price entries that were input 

* by the user. There can be a record 

* PER DAY or a single record for the 

* entire month. Only 1 entry PER 

* Effective date will be stored within 
20 * the Engine table. That is why the 

* tmpPrevEffective is used within the 

* cursor process. 

*I 

25 SELECT @tmpPrevEffective='01-01-1900' 

DECLARE Engine MasterCursor2 CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

em.ETID, 
em.Effective, 
30 em.STID, 

em.VolLevel, 
em.VolGroup, 
em.VarFixed, 
em.MMBtuMCF, 

35 emJierThreshold 

FROM 

Engine .Master AS em 

WHERE 

(em.PID=@P!Dx) 

40 ORDER BY 

em.Effective 

OPEN Engine_MasterCursor2 
FETCH NEXT FROM Engine_MasterCursor2 INTO 
@yET1D,@yEffe<rtve,@ySTID,@yVoILe^ 
45 WHILE @@FETCH_STATUS = 0 

BEGIN 

* Check for daily index entries... If they 
50 * are found then go and calculate the 

* end date for which to insert engine 

* records (automating a daily price 

* entry to the engine for each day of 

* the month up thai the end of the month 
55 * or to the next effective date. 

* This will also check for index basket 

* monthly entries. If the index basket 

* contains daily indices then populate 
60 * each day of the month just as if it 

* was a daily index. 



*/ 

IF @yEffective<>@tmpPrevEffective 
65 BEGIN " 

EXECUTE usp.fLastDay @GasMonthx f @tmpEndDate OUTPUT 

SELECT @tmpDailylndexCount=0 

DECLARE DaifyCheckCursor CURSOR LOCAL STATIC 

FORWARD_ONLY FOR 
70 SELECT 
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p.PriceEntryType, 
emp.PriceVanable 
FROM 



WHERE 



Engine_MasierPrice AS emp, 
PriceComponents AS p 

(emp.ETID=@yETiD) AND 



(emp.NomOrActual=@WhichPricex) AND 
1 0 (p.PriceTag=emp.PriceTag) AND 



p.PriceEntryType- Basket IDX') 



(p.PriceEntryType^Daily !DX' OR 



OPEN DailyCheckCursor 
FETCH NEXT FROM DailyCheckCursor iNTO @dPriceEntryType,@dPriceVariable 
1 5 WHILE @@FETCH_STATUS = 0 

BEGIN 

IF (@dPriceEntryType='Daiiy IDX') AND 

(@tmpDaiiylndexCount=0) 

BEGIN 

20 SELECT @tmpDailylndexCount=1 

END 

IF (@dPriceEntryType='Basket IDX') AND 

(@tmpDailylndexCount=0) 

BEGIN 

25 SELECT @tmpDai!ylndexCount - 

ISNULL((SELECT countf*) FROM IndexBasketLink.lndexRef 

WHERE (lndexBaskelinkJndexBasketlD=@dPriceVariable) AND 

30 (lndexRef.lndexlD=lndexBaskelinkJndexlD) AND 

(lndexRef.Daiiylndex=1)),0) 
END 

FETCH NEXT FROM DailyCheckCursor INTO 

35 @dPriceEntryType,@dPriceVariable 

END 

CLOSE DailyCheckCursor 
DEALLOCATE DailyCheckCursor 
IF @tmpDailyIndexCount=0 
40 BEGIN 

SELECT @tmpEndEffectiveDate=@yEffective 

END 

ELSE 

BEGIN 

45 SELECT 

@tmpEndEffectiveDate=ISNULL((SELECT DATEADD(day ( -1 ( MIN(em.effective)) FROM EngineJVIaster AS em 

WHERE (em.PID=@PIDx) AND (em£ffective>@yEffective)),@trnpEndDate) 

END 

50 r .. a:jl .,, 111i , :i::: ...... 

* Now insert the new Engine records. 

* These inserts will be based on a loop 

* between the effective date from the 
55 * Engine Jvlaster record and the temp 

* field tmpEndEffectiveDate. This will 

* provide for the 'proliferation' of 

* daily index price entries (to the 

* engine). Only insert engine records 
60 , * if there is some sort of volume 

* Norn or PipelineActuai on associated 

* with a specific day. 

* If pipeline actuals then inserts do 
Q5 * not automatically happen. A check 

* is first made to see if the engine 

* record is already there... 



7 

70 SELECT @tmpUseEffective=@yEffective 
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55 



60 



65 



70 



WHILE ©tmpUseEffective <= @tmpEndEffectiveDate 
BEGIN 

DECLARE GaslnventoryCursor CURSOR 



LOCAL STATIC FORWARD.ONLY FOR 



SELECT 



DISTINCT 

g.TID 

FROM 



ASg, 
ASgd 



Gaslnv 
GaslnvD 



WHERE 



(gd.TID=g.TID) AND 
(g.PID=@PIDx)AND 
(g.GasMonth=@GasMonthx) AND 
(g.PriceType=1)AND 
(g.DBCR=@DBCRx) AND 
(gd.GasDay>=@tmpUseEffective) AND 
((gd.Nom<>0) or(gd.PipelineActuais<>0)) 



OPEN GaslnventoryCursor 

FETCH NEXT FROM GaslnventoryCursor INTO @yTID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

IF (SELECT count(*) FROM 



Engine WHERE TID=@yTID AND STID=@ySTID AND 

Effective=@tmpUseEffective AND VolLevel=0)=0 



BEGIN 



INSERT 



INTO 



VALUES 



Engine 

(TID,STID,Effective,VolLevel,VolGroup ( MMBtuMCF,EM - .ETID) 



(@yTiD f @ySTiD,@trnpUseEffective,0,@yVolGroup,@yMMBtuMCF ) @yETID) 

END 

ELSE 

BEGIN 



UPDATE 



Engine 
SET 

WHERE 



EM_ETID=@yETID 

TID=@yTID AND 
STID=@ySTID AND 
Effective=@tmpUseEffective AND 
VolLevel=0 



END 
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FETCH NEXT FROM 

GaslnventoryCursor INTO @yT!D 

END 

CLOSE GaslnventoryCursor 

5 DEALLOCATE GaslnventoryCursor 

SELECT 

@tmpUseEffective=DATEADD(day ) 1,@tmpUseEffective) 

END 

END 

1 0 . SELECT @tmpPrevEffective=@yEffective 

FETCH NEXT FROM Engine_MasterCursor2 INTO 
QyETlD^yEffective^ySTID.QyVolLevei.QyVoiGroup^yVarFixed^yMMBtuMCF.gyTierThreshold 

END 

CLOSE Engine_MasterCursor2 
1 5 DEALLOCATE Engine_MasterCursor2 

END 



20 



GO 

25 SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 

GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
GO 

30 

CREATE PROCEDURE usp_PSPriceTransportAII( 



35 

AS 

BEGIN 

r 

40 ! ******* 

Name: usp_PSPriceTransportAH 

Description: This is the main process for calculating the transport costs 
for all transport entries within the gas inventory database. These are 
45 identified in the gas inventory database as PriceType=3 purchase and sale 
entries (DBCR^O or 1). 

The recalculation of costs will only be allowed to occur when the gas month 
status has been set to the appropriate month 

50 

Inputs: 

GasMonthx - Gas Month to calculate 
WhichPricex - (^Nominations, ^Actualizations 
55 PKGx - either 0 for aii or a specific package (deal) number 

EntityClDx - owning company id 

History: 

60 06/30/1 999 JAMIE Orignal Creation. 

03/22/2000 JAMIE Modified to move the Divie process to the main module. In addition, 
modified to handle the new routing table (LegDetail) and build routing records 
based on the routing rules within this table. 

65 

05/24/2000 JAMIE Modified to be aware of entity and product types and services, in 
addition, modifications made to calculate based on new routing structure... 

*/ 

70 r 



©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
©PKGx INTEGER, 
©EntityClDx VARCHAR(12) 

) 
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* Declare all variables and cursors 

* that are needed by this process. 



5 V 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zPackage INTEGER 
DECLARE @zRecTID INTEGER 
DECLARE ©zDelTID INTEGER 
1 0 DECLARE ©zVoiume DECIMAL(19,2) 

DECLARE ©zAmount DECIMAL(19,2) 
DECLARE @zRate DECIMAL(19,8) 
DECLARE ©zLastDay DATETIME 

15 DECLARE @yTID INTEGER 

DECLARE ©yGasDay DATETIME 

DECLARE ©yDelMID INTEGER 

DECLARE ©yRecMID INTEGER 
20 DECLARE @yLID INTEGER 

DECLARE ©yReceipt DECIMAL(19 P 2) 

DECLARE @yFuelOrOtherDECIMAL(19,2) 

DECLARE @yDe!ivered DECIMAL(19,2) 

DECLARE ©yTransportationRate DECIMAL(19,8) 
25 DECLARE ©yGatheringRate DECIMAL(19,8) 

DECLARE @yFue!PercentDECIMAL(19,8) 

DECLARE ©yPlantVolReduction DECIMAL(19,8) 

DECLARE @yKID INTEGER 

DECLARE ©yRMeterPipe VARCHAR(12) 
30 DECLARE ©yRMeterMeter VARCHAR(14) 

DECLARE ©yDMeterPipe VARCHAR{12) 

DECLARE ©yDMeterMeter VARCHAR(14) 

DECLARE ©yCID VARCHAR(12) 

DECLARE ©yKProductiD INTEGER 
35 DECLARE ©yKServicelD INTEGER 

DECLARE ©yPurchasePKG INTEGER 

r 

* Firstintialize any existing volumes for 
40 * this month on the gas inventory table 

* to a zero. In addition, set the 

* appropriate volume amounts and price 

* amounts on the 'Engine' table to ze ros. 

45 */ 

EXECUTE uspJLastDay @GasMonthx,@zLastDay OUTPUT 

SELECT ©zMessage = 'PSPrfceTranportAII, Initializing Gas Inventory and Engine Information....' 
EXECUTE usp.Message ©zMessage 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
50 SELECT 

Gaslnv.TID 
FROM 

Gaslnv, 
K 

55 WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=3 AND 
K.KID=Gaslnv.KlD AND 
K.EntityCID=@EntityCIDx 

60 OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yTID 
BEGIN TRANSACTION 
WHILE @@FETCH_STATUS = 0 
BEGIN 

65 IF@WhichPricex=fT 

BEGIN 

UPDATE 

GaslnvD 
SET 

70 Nom=0, 
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45 



UPDATE 



END 

IF @WhichPricex=1 
BEGIN 



UPDATE 



©zLastDay 



UPDATE 



WHERE 



Engine 
SET 



WHERE 



GaslnvD 
SET 

WHERE 



Engine 
SET 



WHERE 



EstAct=0 
TID=@yTID AND 

GasDay BETWEEN ©GasMonthx AND 



Volume=Q, 
Amount=0, 
PriceOrRateNom=0 

TID=@yTID 



PipelineActuais=0 
TlD=@yTID AND 

GasDay BETWEEN ©GasMonthx AND 



VoiumeAct=0, 
AmountAct=O t 
PriceOrRateAct=0 



END 



TlD=@yTID 



FETCH NEXT FROM GaslnvCursor INTO @yTID 

END 

SELECT @zMessage = 'PSPriceTranportAil, Finished initializing Gas inventory and Engine Information... 

EXECUTE usp_Message ©zMessage 

COMMIT WORK 

CLOSE GaslnvCursor 

DEALLOCATE GaslnvCursor 

I* ' 

* Now loop through each of leg detail 

* records for the month for this entity 

* and determine appropriate transportation 

* rates. 



50 



55 



60 



65 



70 



* Gas Inventory (PriceType=3) records will 

* be created (along with package if needed). 

* Engine records will also be created. 
*/ 

SELECT @zMessage = 'PSPriceTranportAil, Analyzing Routing (legdetaii) cursor.. 
EXECUTE usp_Message ©zMessage 

DECLARE LegDetailCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

LD.GasDay, 

LD.DelMID, 

LD.RecMID, 

LD.LID,. . 

LD.Receipt, 

LD.FuelOrOther, 

LD.Delivered, 

LD.TransportationRate, 

LD.GatheringRate, 

LD.FuelPercent 

LD.PIantVolReduction, 

LD.PurchasePKG, 

RMeter.PipeFieid, 
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RMeter.Meter, 

DMeter.PipeFleld, 

DMeter.Meter, 

LegRef.KID 

FROM 



LegDetaiiAS LD, 
LegRef, 

Meter AS RMeter, 
Meter AS DMeter 



10 WHERE 



LegRef.LID=LD.LID AND 
RMeter.MID=LD.RecMID AND 
DMeter.MID=LD.DelMID AND 

LD.PurchasePointTID IN (SELECT TID FROM Gasinv.Package.K WHERE 
1 5 Package.PKG=Gasinv.PKG AND K.KID = Package.KID AND 

Gaslnv.GasMonth=@GasMonthx 

and Gasinv.DBCR=0 and Gaslnv.PriceType=1 and K.EntityCID=@EntityCIDx) AND 

LD.GasMonth=@GasMonthx AND 
LD.GasDay>=@GasMonthx AND 
20 LD.GasDay<=@zLastDay AND 

LD.NomOrActuals^QWhichPricex AND 
LDllDoOAND 

(LD.TransportationRateoO OR LD.GatheringRate<>0 OR LD.FueiPercent<>0 OR 

LD.PIantVolReductionoO) 
25 ORDER BY 

LegRef.UD 

OPEN LegDetailCursor 

FETCH NEXT FROM LegDetailCursor INTO @yGasDay t @yDelMID ( @yRecMID,@yLID,@yReceipt@yFuelOrOther, 

30 @yDelivered t @yTransportationRate,@^ 
KG, 



WHILE @@FETCH_STATUS = 0 
35 BEGIN 



BEGIN TRANSACTION 



* First check to see if a transportation 
40 * package has been setup for this 

* contract/company... If not then set 

* it up... A commit is immediately 

* performed here in order to 'preserve' 
*the package information (and its 

45 * as sociated ID). 

7 

SELECT @yKProductlD=KProductlD,@yKServiceiD=KServiceiD FROM Package where 

PKG=@yPurchasePKG 
50 SELECT @yC!D=C!D FROM K WHERE KID = @yKID 

SELECT @zPackage=ISNULL((SELECT PKG FROM Package WHERE KID=@yKID AND 
PackageGasMonth=@GasMonthx AND 

KProductlD=@yKProductlD AND 

KServicelD=@yKServiceiD) ) ") 
55 IF (@zPackage=") OR (@zPackage IS NULL) 

BEGIN 

SELECT @zPackage=(SELECT max(PKG) FROM package) + 1 
INSERT 

INTO 

60 , Package 

(PKG,StartDate,EndDate,Des<riptionPackage^ 

_CreateBy, 

65 LastUpdateBy,LastUpdateDate,KProductlD > KServiceiD) 

VALUES 

(@zPackage,@GasMonthx t @zLastDay,TRANSPORT 
DEAL , ,getdate(),@yKID 1 @yCID,@GasMonthx;Created' ( user_name() t 
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user_name(),getdate(),@yKProducttD,@yKServiceiD) 
END 

r 

5 *********** 

* At this point we know that a package 

* has been created AND we have the 

* package identifier. Now build the 

* Gasinv records IF they do not already 
10 * exist for this package. By adding a 

* new inventory item the daily (GaslnvD) 

* records are automatically created for 
*each day of the month. 

15 */ 

SELECT @zRecTID=ISNULL((SELECTTID FROM Gasinv WHERE GasMonth=@GasMonthx 

AND 

PKG=@zPackage AND PriceType=3 AND 

KID=@yKID AND PipeField=@yRMeterPipe AND 
20 Meter=@yRMeterMeter AND PID=@yUD 

ANDDBCR=0),0) 

IF@zRecTlD=0 
BEGIN 

INSERT 

25 INTO 

Gasinv 

(GasMonth,ClDPipeField,Meter,DBCR,KID,PiD ) PKG,Stat 1 PriceType,Gaslnv_UT, 

30 Nom.EstActGaslnv.UU.Gaslnv^MIDPipeiineActuals) 

VALUES 

(@GasMonthx,@yCID,@yRMeten°ipe^ 

O t O,user_name(),@yRecMID T 0) 

35 SELECT @zRecTID=!SNULL((SELECT TID FROM Gasinv WHERE 

GasMonth=@GasMonthx AND 

PKG=@zPackage AND PriceType=3 AND KfD=@yKID AND PipeField=@yRMeterPipe AND 

40 Meter=@yRMeterMeter AND P!D=@yLID AND DBCR=0),Q) 

END 

SELECT @zDelTID=ISNULL((SELECT TID FROM Gasinv WHERE GasMonth=@GasMonthx 
AND PKG=@zPackage AND 

45 PriceType=3 AND KID=@yKID 

AND PipeField=@yDMeterPipe AND Meter=@yDMeterMeter AND 

PID=@yLlD AND DBCR=1),0) 

IF @zDelTID=0 

BEGIN 

50 INSERT 

INTO 

Gasinv 



55 



65 



(GasMonth,C!D,PipeField ( Meter t DBCR > KID,PIDPKG,StatPriceType,Gasinv_UT, 

Nom ( EstActGaslnv.UU f Gaslnv_MID,PipelineActuals) 

VALUES 



(@GasMonthx,@yCID,@yDMeten°ip^ 
60 0,0,user_name() t @yDeiMID f O) 

SELECT @zDelTiD=ISNULL((SELECT TID FROM Gasinv WHERE 
GasMonth=@GasMonthx AND PKG=@zPackage AND 



PriceType=3 AND KlD=@yKID AND PipeFieId=@yDMeterPipe AND MeteF@yDMeterMeter AND 

PID=@yLID AND DBCR=1),0) 
END 

I* 



70 * At this point the gas package and gas 
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* inventory items have been determined 

* (created if needed). Now go and post 

* the volume to the GaslnvD table, 

5 */ 

IF @WhichPricex=0 
BEGIN 

UPDATE 

GaslnvD 

10 SET 

WHERE 



15 UPDATE 

GaslnvD 
SET 



35 



45 



nom=(nom+@yReceipt) 

TID=@zRecT!D AND 
GasDay=@yGasDay 



nom=(nom+@yDelivered) 

T!D=@zDe!TID AND 
GasDay=@yGasDay 



WHERE 

20 T!D=@zDe!TID AND 

END 

IF @WhichPricex=1 
BEGIN 

25 UPDATE 



GaslnvD 
SET 

WHERE 

30 TID=@zRecTID AND 

UPDATE 

GaslnvD 
SET 

PipelineActuals=(PipelineActuals+@yDelivered) 

WHERE 



Pipe!ineActuais={PipelineActuafs+@yReceipt) 

TID=@zRecTID AND 
GasDay=@yGasDay 



TID=@zDeiTID AND 
GasDay=@yGasDay 



40 END 



* Any transport costs here??? 

* (engine transaction ID is 3) 



*/ 

IPC. 

BEGIN 

SELECT @zRate=@yTransportationRate 
50 SELECT @zVolume=@yReceipt 

SELECT @zAmount=ROUND((@zRate*@zVolume),2) 
IF ISNULL((SELECT count(*) FROM Engine WHERE TID=@zRecTlD 
AND Effective=@GasMonthx AND ST!D=3),0) < 1 

BEGIN 

55 IF @WhichPricex=0 

BEGIN 
INSERT 

INTO 



m) 



60 , Engine 

(TID.Effedve.STlD.VolLevel.VoiGroup^ 

VALUES 
65 

(@2^ecT!D,@GasMonthx t 3 ( 0,@zPackage l 1 l getdate(),user_name() t @zVolume t @zAmount@zRate) 

END 

IF @WhichPricex=1 

BEGIN 

70 INSERT 
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30 



40 



45 



55 



ateAct) 



INTO 

Engine 

(TiD3ective,STID,VoiLevel,VolGroup,^^ 

VALUES 



(@zRecTiD,@GasMonthx,3A@^ 
10 END 

END 

ELSE 

BEGIN 

IF @WhichPricex=0 

15 BEGIN 

UPDATE 

Engine 
SET 

20 Volume=(Volume+@zVoiume), 
Amount=(Amount+@zAmount), 

PriceOn^ateNom=ROUND(((Amount+@zAmount)/(Voiume+@zVolume)) ) 4) 
25 WHERE 

TID=@zRecTiD AND 

Effective=@GasMonthx AND 

STID=3 



END 

IF @WhichPricex=1 
BEGIN 

35 UPDATE 



Engine 
SET 



VolumeAct=(VoIumeAct->@zVoIume), 
AmountAct=(AmountAct+@zAmount), 

PriceOrRateAct=ROUND(((AmountAct+@zAmount)/(VolumeAd4@zVolume)) f 4) 



WHERE 



TID=@zRecTID AND 
Effective=@GasMonthx AND 
50 STID=3 

END 



END 



END 



* Any gathering costs here??? 

* (engine transaction ID is 4) 



*/ 

60 IF @yGatheringRate<>0 

. BEGIN 

SELECT @zRate=@yGatheringRate 
SELECT @zVolume=@yReceipt 
SELECT @zAmount=ROUND((@zRate*@zVolume),2) 
65 IF ISNULL((SELECT count(*) FROM Engine WHERE TlD=@zRecT!D 

AND Effective=@GasMonthx AND STID=4),0) < 1 

BEGIN 

IF @WhichPricex=0 

BEGIN 

70 INSERT 
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55 



60 



m) 



INTO 

Engine 

(TID,Effective,STlD,VoiLevel,VolGroup,M^ 

VALUES 



(@zRecTID,@GasMonthx,4,0,@zP^^ 
10 END 

IF @WhichPricex=1 

BEGIN 
INSERT 

INTO 

15 

Engine 

(TID,Effective,STIDyo!Level,VolGrou^ 

ateAct) 

20 VALUES 
(@zRecTID,@GasMonthxAO,@zPackage^ 

END 

END 

25 ELSE 

BEGIN 

IF @WhichPricex=0 

BEGIN 
UPDATE 

30 En 9 ine 

SET 

Volume=(Volume+@zVolume), 
35 Amount=(Amount+@zAmount), 

PriceOrRateNom=ROUND(({Amount-fr@zAmount)/(VoIume4@zVo!ume)) ( 4) 

WHERE 

40 TID=@zRecTiD AND 

Effective=@GasMonthx AND 
STID=4 

45 ^ND 

IF @WhichPricex=1 
BEGIN 
UPDATE 

Engine 

50 SET 

VolumeAct=(VolumeAct+@zVolume) t 
AmountAct=(AmountAct-HgzAmount), 

PrireOrRateAc^ROUND(((AmountAct^zAmount)/(VolumeAct-^zVolume)),4) 



WHERE 

TiD=@zRecTIDAND 
Effective=@GasMonthx AND 
STID=4 

END 

65 " END 

END 



*Any fuel costs?? 
70 * (engine transaction ID is 5) 
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10 



IF @yFuelPercent<>0 
BEGIN 



AND Effective=@GasMonthx AND STID=5),0) < 1 



SELECT @zRate=@yFuelPercent 

SELECT @zVolume=@yReceipt*@zRate 

IF ISNULL((SELECT count) FROM Engine WHERE TID=@zRecTlD 



BEGIN 

IF @WhichPricex=0 



BEGIN 
INSERT 



INTO 



15 



20 



25 



m) 



Engine 

(TID,Effective,STID,Voll^^ 



VALUES 



(©zRecTID.gGasMonthx^.O.QzPackageJ.getdateO.user.nameO.gzVolume.O^zRate) 

END 

IF@WhichPricex=1 

BEGIN 
INSERT 



INTO 



30 



35 



40 



ateAct) 



Engine 

(nDfffe^STID.VolL^ 



VALUES 



(@2RecTiD,@GasMonthx,5 ( 0,@zPackage t 1,getdate(),user - name() ) @zVolume ) 0 ) @zRate) 

END 

END 

ELSE 

BEGIN 



!F@WhichPricex=0 



BEGIN 
UPDATE 



Engine 
SET 



45 



Voiume=(Volume-*@zVolume) 



WHERE 



50 



55 



TID=@zRecTIDAND 
Effective=@GasMonttoc AND 
STlD=5 



END 

IF @WhichPricex=1 
BEGIN 
UPDATE 



Engine 
SET 



60 



VolumeAct=(VolumeAcH§zVolume) 



WHERE 



65 



70 



TID=@zRecTID AND 
Effective=@GasMonthx AND 
STID=5 

END 



END 



END 
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10 



15 



*Anypvr?? 

* (engine transaction ID is 6) 
7 

IF @yPlantVoiReduction<>0 
BEGIN 

SELECT @zRate=@yPlantVolReduction 
SELECT @zVolume=@yReceipt*@zRate 
IF ISNULL((SELECT countf) FROM Engine WHERE TID=@zRecTID 
AND Effective=@GasMonthx AND STID=6),0) < 1 

BEGIN 

IF @WhichPricex=0 

BEGIN 
INSERT 

INTO 



20 



25 



30 



35 ateAct) 



40 



45 



Engine 

(TlD.Effedve,STID,Vol^ 

VALUES 

(@zRecTID,@GasMonthx,6A@zPackage^^ 

END 



IF @WhichPricex=1 



BEGIN 
INSERT 



INTO 



Engine 



(TID3ective,STID,VotLevel,VolGroup,MMBtuM^ 

VALUES 

(<BzRecTlD f @Gas^ 

END 

END 

ELSE 

BEGIN 



IF@WhichPricex=0 



BEGIN 
UPDATE 



Engine 
SET 



50 



55 



60 



Volume=(Voiume-KgzVolume) 

TID=@zRecTID AND 
Effective=@GasMonthx AND 
STlD=6 



WHERE 



END 

IF @WhichPricex=1 
BEGIN 
UPDATE 



Engine 
SET 



65 



VolumeAct=(VolumeAct-+@zVolume) 

TID=@zRecTID AND 
Effective=@GasMonthx AND 



WHERE 
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STID=6 

END 

END 

END 

COMMIT WORK 

FETCH NEXT FROM LegDetailCursor INTO 
@yGasDay,@yDelMID,@yRecMID,@yLlD t @yReceipt,@yFuelOrOther, 

@yDelivered,@yTransportationRa^ 

KG, 

@yRMeterPipe P @yRMeterMeter t @yDMeterPipe ( @yDMeterMeter,@yKID 
END 

CLOSE LegDetailCursor 

DEALLOCATE LegDetailCursor 

SELECT @zMessage = 'PSPriceTranportAII. Finished....' 

EXECUTE uspjfessage @zMessage 

END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceWASPCalc( 

©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@EntityClDx VARCHAR(12) 

) 

AS 

BEGIN 

r 



Name: usp_PSPriceWaspCalc 

Description: This is the main process for calculating the WASP price information for 
a particular gas month and type of price (nom's or pipeline actuals). The end result 
of this process is to post updated price amounts within the engine. The WASP calculation 
has also been modified to perform the calculations pooled by entity (passed to this 
routine), within entity by product (Oil/Gas/Liguids) and service (marketing/passthrough/etc). 

Inputs: 

GasMonthx (Gas Month to calculate), 

WhichPricex (0=Nominations, ^Actualizations) 

EntityCIDx (which company is being calculated (owner company)) 

History: 

06/22/99 JAMIE Original creation. 

07/22/99 JAMIE Include 3rd party deals within the 
calcualtion process. They WILL NOT BE included within the WASP calculations 
and will be treated the same as "Dedicated* (sanctioned sales) deals. This 
wiil ensure they are not affecting any other pricing component 

05/01/00 JAMIE Modifications to utilize the new routing structure as part of the 
calculation. A check is made to see if any 'routing' entries are made to the new 
structures (for the month). If so, then this routine will invoke the new routines. 
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Otherwise, the old routines are invoked. 



05/24/2000 JAMIE Modifications to add the EntityCIDx component to the calculation (passed 
to this routine by the calling program), in addition, modifications were made to calculate 
ail WASP pricing within each unique product and service. 

08/25/2000 JAMIE Modified to remove all of the old routing routines. 



*/ 

r 



* Declare all variables and cursors 

* that are needed by this process. 

*/ 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©yKProductID INTEGER 
DECLARE ©yKProductName VARCHAR(50) 

DECLARE ©yKServicelD INTEGER 
DECLARE @yKServiceName VARCHAR(50) 

DECLARE ProductTypesCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

Processing CodeiD, 

ShortDescription 

FROM 

SEProcessingCodes WHERE CodeType='CONTRPRODS' 

ORDER BY 

ProcessingCodelD 

SELECT @zMessage = 'PSPriceWASPCalc, Running for Entity , +@EntityCIDx+'...' 
EXECUTE usp.Message @zMessage 

r 



* Outermost loop is on p roduct type.. . 
*/ 

OPEN ProductTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 
WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT ©zMessage = 'PSPriceWASPCalc, Running for Product '4@yKProductName+' ( ..' 
EXECUTE usp_Message @zMessage 

r 



* Next loop is on service type... 



*/ 

DECLARE ServiceTypesCursor CURSOR LOCAL STATIC FORWARD J)NLY FOR 
SELECT 

ProcessingCodelD, 

ShortDescription 

FROM 

SEProcessingCodes WHERE CodeType^CONTRSRVS' 

ORDER BY 

ProcessingCodelD 

OPEN ServiceTypesCursor 

FETCH NEXT FROM ServiceTypesCursor INTO @yKService!D,@yKServiceName 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceWASPCalc, Running for Service 

, +@yKServiceName+'..,' 

EXECUTE uspJAessage @zMessage 

r 



* Now populate the waspresolvedrouting 

* tables with ail sales and transport 
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* totals that were linked to purchases 
*within the route process. 



7 

5 EXECUTE usp_PSPriceWASPCaicSalesN 

@GasMonthx f @WhichPricex,@EntityCIDx J @yKProdiJCt!D 1 @yKService[D 

COMMIT WORK 

FETCH NEXT FROM ServiceTypesCursor INTO 

@yKService!D,@yKServiceName 
10 END 

CLOSE ServiceTypesCursor 
DEALLOCATE ServiceTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProduct!D,@yKProductName 

END 

1 5 CLOSE ProductTypesCursor 

DEALLOCATE ProductTypesCursor 

r 

* Finished. A later routine will take 
20 * the well prices to the actual engine 

* table (PSPriceAII for Purchases). A 

* commit takes place right here just to 

* make sure we limit our recovery window 

* if problems later.. Also, don't want 
25 * to hold locks for an extended amount 

* of time. 

7 

SELECT @zMessage = 'PSPriceWASPCalc, Finished with Entity , +@EntityCIDx+ , ... t 
30 EXECUTE usp_Message ©zMessage 

END 



35 



40 



55 



60 



65 



70 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 



CREATE PROCEDURE usp_PSPriceWASPCalcResolveDriver( 
45 @GasMonthx DATETiME, 

©WhichPricex INTEGER, 
@EntityCIDx VARCHAR(12), 
@lncludelnWaspx VARCHAR(10) 
) 



50 AS 

BEGIN 



Name: usp.PSPriceWaspCaicResolveDriver 

Description: This is the main process that controls the 'walking back 1 (resolving) 
of sales amounts back to their respective purchase deals. 

Inputs: 

GasMonthx (Gas Month to calculate), 

WhichPricex (0=Nominations, ^Actualizations) 

EntityCIDx (which company is being calculated (owner company)) 

IncludelnWaspx ('Common'/None' or 'Dedicated') 

History: 

07/28/2000 JAMIE Original creation 
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r 



* Declare all variables and cursors 
5 * that are needed by this process. 



*/ 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©yKProductID INTEGER 
1 0 DECLARE ©yKProductName VARCHAR(50) 

DECLARE ©yKServicelD INTEGER 
DECLARE ©yKServiceName VARCHAR(50) 

1 5 DECLARE ProductTypesCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 

SELECT 

ProcessingCodeiD, 

ShortDescription 

FROM 

20 SEProcessingCodes 

WHERE 

CodeType-CONTRPRODS' 

ORDER BY 

ProcessingCodeiD 

25 

SELECT ©zMessage = 'PSPriceWASPCalcResloveDriver, Running for Entity , +@EnffiyCIDx+ , ,Pooi 

, 4@lncludelnWaspx+ 1 ...' 

EXECUTE usp_Message@zMessage 

r 

30 "* ' " 

* Outermost loop is on product type... 



*/ 

OPEN ProductTypesCursor 
35 FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 

WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT @zMessage = PSPriceWASPCalcResloveDriver, Running for Product 

'+@yKProductName+ , . i : 
40 EXECUTE usp ..Message ©zMessage 

r 



* Next loop is on service type... 



45 V 

DECLARE ServiceTypesCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

ProcessingCodeiD, 
ShortDescription 

50 FROM 

SEProcessingCodes 

WHERE 

CodeType='CONTRSRVS' 

ORDER BY 

55 ProcessingCodeiD 

OPEN ServiceTypesCursor 

FETCH NEXT FROM ServiceTypesCursor INTO @yKServiceiD,@yKServiceName 
WHILE @@FETCH_STATUS = 0 
BEGIN 

60 BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceWASPCalcResloveDriver, Running for 

Service , -KgyKServiceName+\.. 1 

EXECUTE uspjvtessage ©zMessage 
EXECUTE usp^PSPriceWASPCalcResolveN 
65 ©GasMonthx^WhichPricex^EntityCIDx^yKProductlD.igyKServicelD^lncludelnWaspx 

COMMIT WORK 

FETCH NEXT FROM ServiceTypesCursor INTO 

@yKServicelD,@yKServiceName 

END 

70 CLOSE ServiceTypesCursor 
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10 



DEALLOCATE ServiceTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductiD,@yKProductName 

END 

CLOSE ProductTypesCursor 
DEALLOCATE ProductTypesCursor 

SELECT ©zMessage = 'PSPriceWASPCalcResolveDriver, Finished with Entity , +@EntityCIDx+' ) Pooi 

'-K§lnciudelnWaspx+'..: 

EXECUTE uspjvlessage @zMessage 

END 



15 



20 



25 



30 



35 



40 



45 



50 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER ON SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceWASPCaicResolveN( 



AS 

BEGIN 

r 



@GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@EntityCIDx VARCHAR(12), 
©KPraductiDx INTEGER, 
©KServicelDx INTEGER, 
©IncludelnWaspx VARCHAR(10) 
) 



Name: usp.PSPriceWASPCalcResoiveN 

Description: This particular stored procedure is responsible for looping through and 
chasing ail volumes back from purchase points back to the respective meter locations 
that originally contained the purchase volumes. 

History: 

05/01/2000 JAMIE Original Creation. 

05/24/2000 JAMIE Modified to include the entity, product and service. 

07/28/2000 JAMIE Modified to include the InciudelnWaspx parameter so that 
the calculations can be run in a specified WASP order... 

08/17/2000 JAMIE Removed the call to PSWASPCalcPostPurchaseN. This 
was done based on all wasp calculation entries being setup in the 
WASPResolvedRouting table. 



55 



60 



65 



70 



*/ 

r 



* Declare all variables and cursors 

* that are needed by this process. 



DECLARE ©zMessage VARCHAR(254) 

SELECT ©zMessage = 'PSPriceWASPCalcResolveN Has Started for pooi '-HglncludelnWaspx+V. 
EXECUTE uspj/lessage ©zMessage 

rixixm iiii m m iiAi u iJLun niiiimiU 

* Now invoke the routine that will chase 

* the volumes, prices and amounts back to 
*the purchase points. 
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*/ 

SELECT ©zMessage = 'PSPriceWASPCalcResoiveN, Tracing back all gas (resolving sales)...' 
EXECUTE usp_Message @zMessage 
EXECUTE usp_PSPriceWASPCalcResolveSalesN 
5 @GasMonthx,@WhichPrirex ) @EntityC!Dx > @KProductlDx I @KServicelDx,@lnciudeinWaspx 

/* 



* Time to leave... 



10 */ 

SELECT @zMessage = 'PSPriceWASPCalcResoiveN Has Completed for Pool '+@InciudeinWaspx+\./ 

EXECUTE uspjvlessage ©zMessage 

END 

15 

GO 

SET QUOTED J DENTIFIER OFF SET ANSI.NULLS ON 
GO 

20 SET QUOTED JDENTIFiER OFF SETANSI_NULLS ON 

GO 

CREATE PROCEDURE usp_PSPriceWASPCaicResoiveSalesN( 

@GasMonthx 

25 DATETIME, 

©WhichPricex 

INTEGER, 

©EntityCIDx 

VARCHAR(12), 

30 ©KProductlDx 
INTEGER, 

©KServiceiDx 

INTEGER, 

©InciudelnWaspx 

35 VARCHAR(10) 
AS 

BEGIN 

/* 

40 ****** 

Name: usp_PSPriceWASPCalcResoiveSaies 

Description: This particular stored procedure will loop through (iterativeiy) ail of 
the sales meter records within the WASPResoivedRouting table (type 'S* records) and 
45 distribute their respective volumes, amounts and prices back to the purchase points 

(wieghted). 

AH volumes should match here since the routing process routes purchase deals directly 
to sales deals AND the WASPResoivedRouting table was built on explicit volumes and 
50 links found in the LegDetaii (main routing) table. 

Inputs: 

GasMonthx-Gas Month 
55 WhichPricex - 0=Nominations, 1 =Actuals 
EntityCIDx - owning company 
KProductlDx - product id (oil, gas, liquids, etc.) 
KServicelDx - service id (marketing, passthrough, etc.) 
InciudelnWaspx - ('Common 1 or 'None' or 'Dedicated') 

60 

History: 

05/01/2000 JAMIE Original Creation. 

65 07/20/2000 JAMIE Modified in order to capture and save resolved total amounts 

along with the resolved volume amounts. This was required in order to correct a 
calculation problem. 

07/28/2000 JAMIE Modified to take into consideration which WASP pool is currently 
70 being resolved. 
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1 2/05/2000 JAMIE Modified to ensure that the receipt amount will not be exceeded 
when determining the volume to use. This situation only arose when certain 
unresolved records were ordered a certain way (during the resolution ritual). 
5 Confusing, I know, but that is the best I can do... The field zTempLeft contains 
this informaion 



7 

10 r 

* Declare all variables and cursors 

* that are needed by this process. 



15 7 

DECLARE ©zTempLeft DECIMAL(19,2) 
DECLARE ©zRound INTEGER 
DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zAnyUpdates VARCHAR(1) 

20 DECLARE ©zResolvedReceipt DEC!MAL(19,2) 

DECLARE @zResoivedReceiptAmt DECIMAL(19,2) 
DECLARE @zResolvedDe!ivered DEC!MAL(19,2) 
DECLARE ©zResolvedDeliveredAmt DECIMAL(19,2) 
DECLARE ©zReceiptLeft DEC1MAL(19,2) 

25 DECLARE ©zReceiptAmtLeft DECIMAL(19,2) 

DECLARE ©zPercentToAppiy DECIMAL(19,6) 
DECLARE ©zSumDelivered DEC1MAL(19,2) 
DECLARE @zPercentReceiptDECIMAL{19,6) 
DECLARE ©zUseVolume DECIMAL(19,2) 

30 DECLARE ©zUseAmount DECIMAL(19,2) 

DECLARE ©zAmount DECIMAL(19,2) 
DECLARE @zNewAmountDEC!MAL(19,2) 
DECLARE ©zNewPrice DEC!MAL(19,6) 
DECLARE ©zTempVolume DECiMAL(19,2) 

35 DECLARE ©zTempAmount DECIMAL(19,2) 

DECLARE ©zVolumeDispersed DECIMAL(19,2) 
DECLARE ©zAmountDispersed DECIMAL(19,2) 
DECLARE ©zDifference DECIMAL{1 9,2) 
DECLARE ©zResoivedlndicator VARCH AR(1 ) 

40 DECLARE ©zLinkUpdate VARCHAR(1 } 

DECLARE ©zDeiiveredLeft DECIMAL(19,2) 

DECLARE ©yDelMID INTEGER 
DECLARE ©yRecMID INTEGER 

45 DECLARE ©yReceipt DECIMAL(19,2) 

DECLARE ©yFuelOrOther DECIMAL(19,2) 
DECLARE ©yDelivered DECIMAL(19,2) 
DECLARE ©yTransportAmount DECIMAL(19,2) 
DECLARE ©yGatheringAmount DEC1MAL(19,2) 

50 DECLARE ©yAmount DECIMAL(19,2) 

DECLARE ©yDedicatedPurchasePKG INTEGER 
DECLARE ©yPrice DECIMAL(19 t 6) 
DECLARE @yResolvedReceiptDECIMAL(19,2) 
DECLARE ©ylncludelnWasp VARCHAR(10) 

55 DECLARE ©yResoivedDelivered DECIMAL(1 9,2) 

DECLARE ©yResolvedID INTEGER 
DECLARE ©yResotvedReceiptAmt DEC1MAL(19,2) 
DECLARE ©yResolvedDeliveredArnt DECIMAL(19 f 2) 

60 DECLARE ©IDelMID INTEGER 

DECLARE ©IRecMID INTEGER 
DECLARE ©Receipt DECIMAL(1*9,2) 
DECLARE @IFuelOrOtherDECIMAL(19,2) 
DECLARE ©Delivered DECIMAL{19,2) 

65 DECLARE ©ITransportAmount DECIMAL(19,2) 

DECLARE ©IGatheringAmount DEC!MAL(19,2) 
DECLARE @iAmountDEClMAL(19,2) 
DECLARE ©IDedicatedPurchasePKG INTEGER 
DECLARE ©IPrice DECIMAL(15,6) 

70 DECLARE ©IResoivedReceipt DECiMAL(19,2) 
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DECLARE ©HncludelnWasp VARCHAR(IO) 
DECLARE @IResolvedDelivered DECIMAL{19,2) 
DECLARE @IResolvedlD INTEGER 
DECLARE @IResolvedReceiptAmt DEC!MAL(19,2) 
DECLARE @IResolvedDeiiveredAmt DECIMAL(19,2) 



* This loop will iterate until no more 
10 * gas can be distributed to various 

* saies meters within the 

* WaspResolvedRouting table. 

*/ 

1 5 SELECT @zRound = ISNULL((SELECT TypeLimit FROM SEProcessingCodes WHERE ProcessingCodeiD = 

@KProductlDx) f O) 

SELECT ©zMessage = 'PSPriceWASPCaicResolveSalesN, starting iterative process...' 
EXECUTE uspjvlessage @zMessage 
SalesMeterlterationLoop: 
20 BEGIN 

SELECT ©zAnyUpdates-N' 

DECLARE WASPResolvedSalesCursor CURSOR LOCAL DYNAMIC FORWARD.ONLY FOR 
SELECT 

DeiMID, 

25 RecMID, 

Receipt, 
FuelOrOther, 
Delivered, 
TransportAmount, 

30 GatheringAmount, 

Amount 

DedicatedPurchasePKG, 
Price, 

ResolvedReceipt, 

35 InciudelnWasp, 

ResolvedDelivered, 

ResoivedID, 

ResolvedReceiptAmt 

ResoivedDeliveredAmt 
40 FROM 

WASPResolvedRouting 

WHERE 

(GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
45 lnciudelnWasp=@lnctudelnWaspx AND 

ResolvedindicatoroT AND 
ResoivedReceiptoReceipt AND 
ResoivedTypeo'P 1 AND 
Amount<>0 AND 

50 PriceoOAND 

Delivered<>0 AND 
EntityCiD=@EntityCIDx AND 
KProductlD=@KProductlDx AND 
KServicelD=@KServicelDx) 

55 ORDER BY 

IncludelnWasp, 

DedicatedPurchasePKG, 

DeiMID 

OPEN WASPResolvedSalesCursor 
50 FETCH NEXT FROM WASPResolvedSalesCursor INTO @yDe!MID, 

@yRecMID t @yReceipt,@yFuelOrOther,@yDelivered,@yTransportAmount@yGatheri 
,@yDedicatedPurchasePKG, 

55 @yPn^,@yResolvedReceipt,(^ 

©vResolvedReceiptAmtgyResolvedDeiiveredAmt 
WHILE @@FETCH_STATUS = 0 
BEGIN 

70 r 
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* Loop through each of the legs that 

* have the delivery meter the same as 

* the receipt meter for the given 

* month and class... 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



*/ 

SELECT @zVoiumeDispersed=0 
SELECT @zAmountDispersed=0 
SELECT ©zLinkUpdate-N' 

DECLARE WASPResolvedLinkCursor CURSOR LOCAL DYNAMIC 



FORWARD_ONLY FOR 



SELECT 



DelMID, 

RecMID, 

Receipt 

FuelOrOther, 

Delivered, 

TransportAmount, 

GatheringAmount, 

Amount 

DedicatedPurchasePKG, 
Price, 

ResoivedReceipt 

IncludelnWasp, 

Resolved Delivered, 

ResolvedID, 

ResolvedReceiptAmt, 

ResolvedDeiiveredAmt 

FROM 

WASPResoivedRouting 



WHERE 



AND 
AND 

AND 



DedicatedPurchasePKG=@yDedicatedPurchasePKGAND 



(GasMonth=@GasMonthx AND 
NomOrActual-@WhichPricex 

lncludelnWasp=@ylncludelnWasp 



DelMID=@yRecMIDAND 
ResolvedlD<>@yResolvedlD 

EntityC!D=@EntityCIDx AND 
KProductlD=@KProductlDx AND 
KServicelD=@KServicelDx AND 
ResoivedTypeo'S'AND 
ResoivedDelivered<Delivered) 



OPEN WASPResolvedLinkCursor 
FETCH NEXT FROM WASPResolvedLinkCursor INTO @IDelMID f 



DedicatedPurchasePKG, 



©IPrice^iResolvedReceiptgllnciudelnWasp^IResoivedDelivered^IResolvedlD, 

@lResolvedReceiptAmt@IResolvedDeliveredAmt 

WHILE @@FETCH_STATUS = 0 
BEGIN 



60 



65 



70 



* Determine the total volume of gas 

* where this gas came from (based on 

* delivery meterid being equal to 

* the receipt meter id and all WASP 

* pool and dedicated purchase package 

* information being identical). 
* 

* The zUseVolume field contains the 

* amount of volume from the delivery 

* meter to apply backward. 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



@zResoivedReceiptAmt=@yResolvedReceiptAmt 



AND (@yDeiivered>@yResoivedDeiivered) 
@zPercentReceipt=(@yResolvedDelivered/@yDeiivered) 

more than 7 
previous */ 



* The zUseAmount field contains the 

* dollar amount from the delivery meter 

* that should be applied backward. 
* 

* The zPercentToApply field contains the 

* volume weighted per centage to use. 

7 

SELECT @zResolvedReceipt=@yResolvedReceipt 
SELECT 

SELECT @zPercentReceipt=1 

I* Determine total receipt volume available to appiy7 
/* This is based on percentage of delivered that may have7 
/* already been applied. In addition, determine the7 
/* amount that is available..// 

IF (@yDelivered<>0) AND (@yResolvedDelivered<>0) 

BEGIN 
SELECT 

END 

I* Incorporated this logic to ensure that no 
/* the original receipt can be sent back to 
/♦meter... 12/05/20007 



SELECT 

@zReceipleft=ROUND((@yReceipf@zPercentReceipt) l @zRound) 



@zPercentReceipt),@zRound); 

@zReceipleft=@zTempLeft 

@yResolvedReceiptAmt),2) 

apply... and RecMlDoDeiMID 7 

SUM(Delivered) FROM WASPResolvedRouting 



SELECT @zTempLeft=(@yReceipt - 
SELECT @zTempLeft=Round((@zTempLeft * 

IF ©zTempLeft < ©zReceiptLeft 
BEGIN 

SELECT 

END 

SELECT @zReceiptAmtLeft=ROUND((@yAmount- 
/* Determine percentage of the volumes and amounts to 



SELECT @zPercentToAppiy=1 

SELECT @zSumDelivered=ISNULL((SELECT 



WHERE 



GasMontrF@GasMonthx AND NomOrActual=@WhichPricex AND lnciudeinWasp=@ylnctudelnWasp AND 

DedicatedPurchasePKG=@yDedicatedPurchasePKG AND DelMid=@yRecMlD AND ResolvedTypeo'S' 



AND 



EntityClD=@EntityCIDx AND KProductlD=@KProductlDx AND KServicelD=@KServiceiDx),0) 



IF (@zSumDelivered<>0) AND (@!Delivered<>0) 
BEGIN 
SELECT 

@zPercentToApply=ROUND((@!De!ivered/@zSumDeiivered),6) 

END 

ELSE 

^ BEGIN 

SELECT @zPercentToApply=0 
END 
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I* Calculate volume to apply backwards for this particular 

leg...*/ 

SELECT 

5 @zUseVolurne=ROUND((@zReceipleft*@zPercentToAppiy) ( @zRound) 

SELECT @zDeliveredLeft=@IDelivered- 

@IResolvedDeiivered 

IF @zUseVolume>@zDeliveredLeft 
BEGIN 

10 SELECT 
@zllseVolume=@zDeliveredLeft 

END 

SELECT 

@2ResolvedReceipt=@2ResolvedReceipt+@zUseVo!ume 
1 5 SELECT 
@zVo!umeDispersed=@zVo!umeDispersed-»@zUseVolume 



20 



/* Calculate dollar amount to apply backwards for this 

particular leg...*/ 



SELECT 

@zUseAmount=ROUND((@zReceiptAmtLeft*@zPercentToAppiy),2) 

SELECT 

@zResolvedReceiptAmt=@zResolvedRec^iptArnt-^@zUseArnount 
25 SELECT 
@zArnountDispersed=@2ArnountDispersed4@zUseArnount 

r 



* Now update the meter feeding 
30 * this delivery point with the 

* information just posted... 

* The amount is calculated based 

* on the previous value plus 
35 * the amount being posted from 

* the delivery meter. The 

* price is derived based on 

* receipt volume into the amount 
* 

40 * Since we are not forcing the pipes 

* to balance then calculate the price 

* based solely on the volume resolved 

* on delivery. 

45 */ 

IF (@zUseVolume>0) AND (@zUseAmount<>0) 
BEGIN 

SELECT 

@zResolvedDelivered=@IReso[vedDelivered+@zUseVolume 
50 SELECT 
@zResoivedDeliveredAmt=@IResolvedDeIiveredAmt->@zUseAmount 



SELECT 

IF (@zResolvedDeiiveredAmt<>0) 
BEGIN 



@zNewAmount=ROUND((@IAmount^zUseAmount),2) 
55 AND(@IReceipt<>0) 

SELECT @zNewPrice=ROUND({@zNewAmount/@lReceipt) t 4) ^ 
60 ELSE 

BEGIN 

SELECT @zNewPrice=0 

END 

55 " " UPDATE 

WASPResolvedRouting 

70 Resolvedlndicator='N\ 
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ResolvedDelivered=@zResolvedDelivered, 



10 



20 



ResolvedDeliveredAmt=@zResolvedDe!iveredAmt, 

AmounNgzNewAmount, 

Price=@zNewPrice 

^ WHERE 
ResolvediD=@IResoivedlD 



SELECT @zAnyUpdates=Y 
SELECT @zLinkUpdate=Y 

END 

1 5 FETCH NEXT FROM WASPResoivedLinkCursor INTO 

©IDelMID, 



@IRecMID,@IReceipt@lFueiOrOther,@iDelivered ( @ITransportAmount@!GatheringAm 
DedicatedPurchasePKG, 



Pnce.i 



@IResoivedReceiptAmt,@IResoIvedDeliveredArnt 

END 

25 CLOSE WASPResoivedLinkCursor 

DEALLOCATE WASPResoivedLinkCursor 
r ^^^^ 

* After looping through ail of the 
30 * meters that can possible associate 

* with this sale, go ahead and update 

* the original sales meter information 

* to reflect the total volume 

* passed on to subsequent meters. 

35 ■ um,iUlun 

*/ 

IF@zLinkUpdate=Y 
BEGIN 

UPDATE 

4Q WASPResolvedRouting 



ResolvedReceipt=ResolvedReceipt+@zVoiumeDispersed, 
45 ResolvedReceiptAmt=Reso!vedReceiptAmt-+@zAmountDispersed, 

WHERE 



SET 



Resoivedlndicator=T 



ResolvedlD=@yResolvedlD 
50 END 

FETCH NEXT FROM WASPResoivedSaiesCursor INTO ©yDelMID, 



@yRecMID,@yRe<Eipt@yFueiOrOthe^ 
,@yDedicatedPurchasePKG, 

@yPrice, 



55 



@yResolvedReceiptAmt,@yResolvedDeiiveredAmt 
END 

5Q CLOSE WASPResoivedSaiesCursor 

DEALLOCATE WASPResoivedSaiesCursor 
I* 

* If no more volume was chased backward 
Q5 * then get out of the iterative loop. 

* At this point all volumes have been 

* sent back to all meters and weighted 

* costs should be available at each. 

70 *' 
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IF @zAnyUpdates<>'N' 
BEGIN 

GOTO SalesMeteriterationLoop 

END 

5 END 
END 



10 



15 



GO 

SET QUOTED .IDENTIFIER OFF SET ANSI.NULLS ON 
20 GO 

SET QUOTEDJDENTIFIER OFF SET ANSt.NULLS ON 
GO 

25 CREATE PROCEDURE usp__PSPriceWASPCaicSalesN( 

©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@EntityCIDxVARCHAR{12), 
©KProductlDx INTEGER, 

30 ©KSeivicelDx INTEGER 

) 

AS 

BEGIN 
I* 

35 "* ' " 

Name; usp.PSPriceWASPCaicSalesN 

Description: This process will build all of the meters within the 
WASPResolvedRouting table for all of the deals within the gas month. Only 
40 those meters that had actual transport volume will be moved. A 

different routine will iterate through the volumes posted here in order 
to calculate ail of the prices. 

Inputs: 

45 

GasMonthx-Gas Month 
WhichPricex - 0=Nominations, 1=Actuals 
EntityClDx - Entity being calculated (owning company) 
KProductiDx - Product type being calculated. 
50 KServicelDx - Service type being calculated. 

History: 

05/02/2000 JAMIE Original Creation. 

55 

05/24/2000 JAMIE Modified to add the Entity, product and service types to be 
parameters to this procedure. This will ensure that gas, oil, etc amongst the 
various types of companies (entities) being serviced do not get intermixed. 

60 07/20/2000 JAMiE Modified in order to initialize new resolved amount fields for 

ail records that get added to the WASPResolvedRouting table. 

08/18/2000 JAMIE Modified to go ahead and put the actual purchase point 
items on the table to include them in the calculations. At this point the 
65 WASPResolvedRouting table will contain ACT entries (see Type' field on the 

database). Purchase points thru Sales points. 

10/03/2000 JAMIE Modified to incorporate the 'Other Cost amount totals 
into the Resolved table total calculation. 

70 
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01/09/2000 JAMIE For consistency. Modified the rounding (on the prices 
to two decimal places (for all months previous to December 2000). 



5 7 
r 



* Declare all variables and cursors 

* that are needed by this process. 

10 ****** — ~~ — 

7 

DECLARE @zMessage VARCHAR(254) 

DECLARE @zlncludelnWasp VARCHAR(10) 

DECLARE @zVoiume DECIMAL(19 t 2) 
1 5 DECLARE ©zType VARCHAR(1) 

DECLARE @zPrice DECIMAL(19,6) 

DECLARE ©zAmount DECIMAL(19,2) 

DECLARE @zOtherCostAmountDECIMAL(19,2) 

DECLARE @zDedicatedPurchasePKG INTEGER 
20 DECLARE @zGatheringAmount DECIMAL(19,2) 

DECLARE @zTransportationAmount DEC1MAL(1 5,2) 

DECLARE ©zAmountWithCosts DECIMAL(19,2) 

DECLARE ©zLastDay DATETIME 

DECLARE ©zPrevSalePKG INTEGER 
25 DECLARE ©zPrevSaleMID INTEGER 

DECLARE ©yPurchasePKG INTEGER 

DECLARE ©yRecMID INTEGER 

DECLARE ©yDelMID INTEGER 
30 DECLARE ©ySalesPKG INTEGER 

DECLARE ©yReceipt DECIMAL(19,2) 

DECLARE @yLDIDPrev INTEGER 

DECLARE ©yGasDay DATETIME 

DECLARE ©yPurchasePointTID INTEGER 
35 DECLARE @yStep INTEGER 

DECLARE ©xPriceOrRateNom DECIMAL(19,6) 
DECLARE @xPriceOrRateActDEClMAL(19,6) 

40 DECLARE ©qPurchasePKG INTEGER 

DECLARE ©qLID INTEGER 

DECLARE ©qRecMID INTEGER 

DECLARE ©qDelMID INTEGER 

DECLARE ©qReceipt DECIMAL(19,2) 
45 DECLARE ©qDelivered DECIMAL(19,2) 

DECLARE @qFueiOrOtherDECIMAL(19,2) 

DECLARE ©qTransport DECIMAL(19,2) 

DECLARE ©qGathering DECIMAL(19,2) 

50 

SELECT ©zMessage ~ 'PSPriceWASPCalcSalesN Has Started...' 
EXECUTE usp Message ©zMessage 

r 

55 

* Delete any pre-existing resolved entries 

* that may exist in the database... These 

* records are the ones related to the 

* entity, product and service tyeps. 
60 ******** 

7 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, Deleting existing entries off WASPResoivedRouting...' 
EXECUTE usp_Message ©zMessage 
DELETE 
65 FROM 

WASPResoivedRouting 

WHERE 

GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
70 EntityClD=@EntityCIDx AND 



-109- 



KProductlD=@KProductlDx AND 
KServicelD=@KServiceiDx 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, Finished deleting existing entries off WASPResolvedRouting../ 
EXECUTE uspjvtessage ©zMessage 

5 r f nnn.-.r,,,, 

* Initially loop through the saies links 

* found on the iegdetail table (high level 
*loop)... Only looping through those 

1 0 * items that are associated with this 

* entity and product /service type. 

*/ 

SELECT @zPrevSalePKG=0 
1 5 SELECT @zPrevSaleM!D=0 

EXECUTE usp lastDay @GasMonthx,@zLastDay OUTPUT 
DECLARE LegDetailSaleCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

PurchasePKG, 
20 RecMID, 

DeiMID, 
SalesPKG, 



LDIDPrev, 

25 GasDay, 

PurchasePointTID, 

Step 

FROM 

LegDetail 

30 WHERE 

LegDetaii.PurchasePointTID IN (SELECT DISTINCT TID FROM Gaslnv, Package, 
K WHERE Gaslnv.PKG=Package.PKG AND k.kid = Package.KID AND Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=0 AND Gasinv.PriceType=1 and Package.KProductID = ©KProductlDx and PackageXServiceiD = 
@KServiceiDx AND K.EntityCID = ©EntityCIDx) AND 
35 LegDetaii.GasDay>=@GasMonthx AND 

LegDetaii.GasDay<=@zLastDay AND 

LegDetaii.GasMonth=@GasMonthx AND 

LegDetail.NomOrActuais=@WhichPricex AND 

LegDetail.LIDO AND 
40 LegDetail.PurchasePKG>0 AND 

LegDetail.SalesPKG>Q 

ORDER BY 

LegDetail.SalesPKG, 
LegDetaii.RecMID, 

45 LegDetaiLPurchasePointTID, 

LegDetail.GasDay, 
LegDetaiiPurchasePKG 

SELECT @zMessage = 'PSPriceWASPCalcSalesN, opening main sales cursor (LegDetailSaleCursor)...' 
EXECUTE usp J/lessage ©zMessage 
50 OPEN LegDetailSaleCursor 

SELECT @zMessage = 'PSPriceWASPCalcSalesN, finished opening main sales cursor (LegDetailSaleCursor)... 

EXECUTE usp.Message ©zMessage 

FETCH NEXT FROM LegDetailSaleCursor INTO ©yPurchasePKG, 

55 @yRecMID,@yDelMID,@ySalesPKG,@yRe^ 
WHILE @@FETCH_STATUS = 0 
BEGIN 

60 * Determine the classification of the 

* purchase deal attached to this sales 

* volume right here... 

*/ 

65 EXECUTE uspJGetWasplndicator @yPurchasePKG,@zlncludelnWasp OUTPUT 

IF @zlncludelnWasp- Common' 
BEGIN 

SELECT @zDedicatedPurchasePKG=0 

END 

70 ELSE 
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BEGIN 

SELECT @zDedicatedPurchasePKG=@yPurchasePKG 

END 



* If sales package has changed OR 

* the meter within a sales package 

* has changed then (amongst other 

* things) sum up any/all other costs 

1 0. * for the meter (this ensures that only 

* one instance of other cost entries 

* are totaled for a given sales deal 

* at a given meter). 



15 7 

SELECT @zOtherCostAmount=0 

IF (@ySalesPKG<>@zPrevSalePKG) OR (@yRecMID<>@zPrevSaleMID) 
BEGIN 

SELECT @zPrevSalePKG=@ySa!esPKG 
20 SELECT @zPrevSaleMID=@yRecMID 

IF @WhichPricex=0 
BEGIN 

SELECT 

@zOtherCostAmount=ISNULL((SELECT SUM(Engine.Amount) FROM Gasinv.Engine WHERE 
25 Gaslnv.PKG=@ySalesPKG 

AND 

Gasinv.GasMonth=@GasMonthx AND Gasinv.PriceType=1 AND Engine.TlD=Gaslnv JID AND 
Gas!nv.Gasinv_MID=@yRecMID AND Engine.STID<>9),0) 

END 

30 IF@WhichPricex=1 

BEGIN 

SELECT 

@zOtherCostAmount=ISNULL((SELECT SUM(Engine.AmountAct) FROM Gasinv.Engine WHERE 
GaslnvPKG=@ySalesPKG 
35 AND 

Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PriceType=1 AND Engine.TID=Gasinv.TID AND 
Gaslnv.Gasinv_MID=@yRecMID AND Engine.STID<>9),0) 

END 

END 

40 r 

* Calculate the price and amount for the 

* sales item here (utilizing the Engine 

* calculation). The beginning volume is 

45 * the amount puiled off the sales association 

* on the database... Break from this 

* loop once the first price record has been 

* obtained (for th is day)... 

50 7 

SELECT @zPrice=0 
SELECT @zAmount=0 
SELECT @zVolume=0 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
55 SELECT 

EnginePriceOrRateNom, 

Engine.PriceOrRateAct 

FROM 

Gasinv, 

60 Engine 

WHERE 

GaslnvPKG=@ySalesPKG AND 
GaslnvPriceType=1 AND 
Engine.TID=Gaslnv.TID AND 
65 ^ Gasinv.Gaslnv_MlD=@yRecMlD AND 

Engine.Effective<=@yGasDay AND 
Engine.ST!D=9 

ORDER BY 

Engine,Effective DESC 

70 OPEN EngineCursor 



-111- 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



FETCH NEXT FROM EngineCursor INTO @xPriceOrRateNom,@xPriceOrRateAct 
IF@@FETCH_STATUS = 0 
BEGIN 

IF @zPrice=0 

BEGIN 

IF @WhichPricex==0 

BEGIN 



12/01/2000' 



IF ©GasMonthx < 

BEGIN 
SELECT 



ELSE 



ELSE 



END 
BEGIN 



ELSE 



@zPrice=ROUND(@xPriceOrRateNom,2) 



@zPrice=ROUND(@xPriceOrRateNom J 4) 



•12/01/2000* 



@2Price=ROUND(@xPriceOrRateAct p 2) 



@2Price=ROUND(@xPriceOrRateAct,4) 

END 

SELECT @zVolume=@yReceipt 
SELECT @zAmount=(@zVoIume*@zPrice) 
END 

END 

CLOSE EngineCursor 
DEALLOCATE EngineCursor 

r 

* Sum the other cost entry on the 

* amount brought back for the 

* production volume amount The 

* other cost entry will only have a 

* non zero value the first time a 

* sales meter is encountered. Make 

* sure to reset the price entry. 

7 

IF @zOtherCostAmount<>0 
BEGIN 

SELECT @zAmount=@zAmount4@zOtherCostAmount 
IF (@zAmount<>0) AND (@zVoiume<>0) 
BEGIN 

SELECT 

@zPrice=ROUND((@zAmount/@zVolume),4) 

END 

END 

r 



END 

BEGIN 
SELECT 

END 



IF@GasMonthx< 

BEGIN 
SELECT 



END 

BEGIN 
SELECT 

END 



* Post a sales entry into the resolved 

* table here.. (LID=0)... This will be 

* the starting point once the routing 

* interative process tfegins... 



7 

IF ISNULL((SELECT count(*) FROM WASPResolvedRouting WHERE GasMonth=@GasMonthx 
AND RecMID=@yRecMID AND DelMID=@yDelMID AND 
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NomOrActuaI=@WhichPricex AND 
lncludelnWasp=@z!nciudelnWASP AND DedicatedPurchasePKG=@zDedicatedPurchasePKG AND 

ResolvedType='S' AND LiD=0 AND 
EntityClD=@EntityCIDx AND KProductlD=@KProductlDx AND KServicelD=@KServtceIDx),0) < 1 
5 BEGiN 

INSERT 

INTO 

WASPResolvedRouting 

10 {GasMonth,RecMID,DeiMID,NomOfArtual,Receipt t FuelOrOther,DeliveredJransportAmou^ 
ntAmount, 

lndudelnWasp f DedicatedPurchasePKGPri(E,Res^^ 
edDelivered, 



15 



20 



60 



EntityCID.KProductlD^ServicelD.ResolvedReceiptAmtResolvedDeliveredAmt) 

VALUES 

(@GasMonthx,@yRecMlD,@yDeiMlD^ 
@zlncludeInWASP,@zDedicatedPurchasePKG,@zPrice,O;N , ;S',O ) 0 > 



@EntityCIDx,@KProductlDx t @KServiceiDx,0,0) 
END 

25 ELSE 

BEGIN 

IF (@zAmount<>0) AND (@zVolume<>0) 
BEGIN 

UPDATE 

30 WASPResolvedRouting 

SET 

Receipt=(Receipt+@zVoiume), 
35 Delivered=(Delivered-K§zVolume), 
Amount=(Amount+@zAmount), 

Price=ROUND(((Amount+@zAmount)/(Receipt+@zVolume)),4) 
40 WHERE 

GasMonth=@GasMonthx AND 

RecMID=@yRecMID 

AND 

45 DelMID=@yDelMID 
AND 

NomOrActual=@WhichPricex AND 
50 lncludelnWasp=@zincludelnWASP AND 

DedicatedPurchasePKG=@zDedicatedPurchasePKGAND 

ResoivedType-S' 

AND 

55 LlD=0 AND 

EntityCID=@EntityCIDx AND 
KProductlD=@KProductlDx AND 
KServicelD=@KServicelDx 

END 

END 

FETCH NEXT FROM LegDetailSaleCursor INTO @yPurchasePKG, 



65 

©yRecMID^yDelMID.QySalesPKG.QyReceiptSyLDIDPrev^yGasDay.QyPurchasePointTID.QyStep 
END 

CLOSE LegDetailSaleCursor 
DEALLOCATE LegDetailSaleCursor 

70 r 
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* Once ail of the safes meters have been 

* inserted then it is time to insert the 

* transportation routing leg entries. THese 
5 * are summarized entries. No day-to-day 

* cursor processing is required only the 

*sum of the unique days. 
* 

* Transport legs (type T) and purchase 
1 0 * points (type 'P) are posted here,. 

*/ 

DECLARE LegDetailChaseCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

1 5 LegDetaiLPurchasePKG, 

LegDetaiLLID, 

LegDetaiLRecMID, 

LegDetail.DelMID, 

SUM(LegDetaiLReceipt), 
20 SUM(LegDetail.Delivered), 

SUM(LegDetail.FuelOrOther), 

ROUND(SUM(LegDetail.Receipt*LegDetail.TransportationRate),2), 

ROUND(SUM(LegOetail.Receipt^egDetail.GatheringRate),2) 

FROM 

25 LegDetail 

WHERE 

LegDetaiLPurchasePointTID IN (SELECT DISTINCT TID FROM Gaslnv, Package, 
K WHERE Gaslnv.PKG=Package.PKG AND k.kid = Package.KID AND Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=0 AND Gaslnv.PriceType^l and Package.KProductID = @KProductlDx and Package.KServicelD = 
30 @KServicelDx AND K.EntityCID = ©EntityCiDx) AND 

LegDetail.GasMonth=@GasMonthx AND 
LegDetail.GasDay>=@GasMonthx AND 
LegDetail.GasDay<=@zLastDay AND 
LegDetail.NomOrActuais=@WhichPricex AND 
35 LegDetail.SalesPKG=0 

GROUP BY 

LegDetaiLPurchasePKG, 

LegDetaiLLID, 

LegDetaiLRecMID, 

40 LegDetaiLDelMID 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, running query to create transportation legs...' 

EXECUTE usp_Message @zMessage 

SELECT @zPrevSalePKG=Q 

SELECT ©zPrevSaleMID=0 
45 SELECT ©zMessage = 'PSPriceWASPCalcSalesN, opening cursor (LegDetailChaseCursor)..: 

EXECUTE usp.Message ©zMessage 

OPEN LegDetailChaseCursor 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, finished opening cursor (LegDetailChaseCursor)../ 
EXECUTE usp.Message ©zMessage 
50 FETCH NEXT FROM LegDetailChaseCursor INTO 

©qPurcha^ePKG.QqLID^qRecMID^qDelMID.QqReceiptgqDelivered^qFuelOrOther, 

@qTransport,@qGathering 

WHILE @@FETCH_STATUS = 0 
BEGIN 

55 ^ 

* Determine the classification of the 

* purchase deal attached to this transort 

* volume right here... 



60 



*/ 

IF (@qPurchasePKG<>@zPrevSaIePKG) OR (@QLID<>@zPrevSaieMID) 
BEGIN 

SELECT @zPrevSalePKG=@qPurchasePKG 
65 ^ SELECT @zPrevSaleMID=@qLlD 

END 

EXECUTE uspJGetWaspindicator @qPurchasePKG,@zincludelnWasp OUTPUT 
IF ©zlncludelnWasp- Common' 
BEGIN 

70 SELECT @zDedicatedPurchasePKG=0 
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END 

ELSE 

BEGIN 

5 END 

IF@qLID=0 

BEGIN 
END 

10 ELSE 

BEGIN 
END 



SELECT @zDedicatedPurchasePKG=@qPurchasePKG 



SELECT @zType='P' 



SELECT @zType=T 



15 *********** ****** ********* 

* If the !eg for this is in the WASP 

* temporary routing table then 

* just update the record with the 

* totals. Otherwise, insert it and 
-20 * go to the next leg. 



*/ 

SELECT @zAmountWithCosts=((@qGathering-M®qTransport)*-1 ) 
IF ISNULL((SELECTcount(*) FROM WASPResolvedRouting 
25 WHERE GasMonth=@GasMonthx AND RecMID=@qRecMID AND 

DelMID=@qDe!MID AND 

NomOrActuai=@WhichPricex AND 

lncludelnWasp=@zlncludelnWASP AND 

DedicatedPurchasePKG=@zDedicatedPurchasePKGAND 

30 Reso!vedType=@zType AND LID=@qLiD AND 

EntityC!D=@EntityCIDx AND KProductlD=@KProductJDx 

AND KService!D=@KServiceiDx),0)<1 

BEGIN 

INSERT 

35 INTO 

WASPResolvedRouting 

(GasMonth p RecMlD,DeiMID,NomOrActuai t ReceiptFuelOrOther ( Deiivered, 

40 TransportAmount.GatheringAmountAmount.lncludelnWasp.DedicatedPurchasePKG, 

Price.ResolvedReceiptResolvedlndicator.ResolvedType.LiD^esolvedDelivered, 

EntityCID,KProductlD,KServiceiD t ResolvedRe(^iptAmtResolvedDeliveredArnt) 
45 VALUES 

(@GasMonthx,@qRecMID,@qDeiMID,@Wh^ 

@qTransport@qGathering t @zAmountWithCosts,@zlndudelnWASP,@zDedicatedPurchasePKG^ 
50 0,0;N',@zType t @qLID t 0 t 

@EntityCIDx ( @KProductiDx,@KServicelDx,0,0) 
END 

ELSE 

55 BEGIN 

UPDATE 

WASPResolvedRouting 
SET 

Receipt=(Receipt-H@qReceipt) t 
60 , , Delivered=(De!ivered-^qDelivered), 

FuelOrOther=(FuelOrOther-+@qFuelOrOther) ) 

TransportAmount=(TransportAmount-+@qTransport), 
65 GathenngAmount=(GatheringAmount-^@qGathering), 

WHERE 



Amount=(Amount+@zAmountWithCosts) 



GasMonth=@GasMonthx AND 
RecMID=@qRecMID AND 

70 DelMlD=@qDelMiD AND 
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NomOrActuat=@WhichPricex AND 
lncludelnWasp=@zlnciudelnWASP AND 

DedicatedPurchasePKG=@zDedicatedPurchasePKGAND 
5 Resoived7ype=@zTypeAND 

LID=@qLID AND 
EntityClD=@EntityCIDx AND 
KProductiD=@KProductlDx AND 
KServicelD=@KServtcelDx 

10 END 

FETCH NEXT FROM LegDetaiiChaseCursor INTO 
@qPurchasePKG,@qLID,@qRecMID,@qDelMiD,@qReceipt@qDelivered,@qFuelOrOther, 

@qTransport@qGathering 
15 END 

CLOSE LegDetaiiChaseCursor 

DEALLOCATE LegDetaiiChaseCursor 

SELECT @zMessage = 'PSPriceWASPCalcSaiesN Has Finished../ 

EXECUTE usp Jvlessage @zMessage 
20 END 



25 



30 



35 GO 

SET QUOTED JDENTIFIER OFF SET ANSi.NULLS ON 
GO 

SET QUOTED JDENTIFIER ON SETANSLNULLS ON 
40 GO 

CREATE PROCEDURE usp_PSPriceWASPCiearMonth( 

©GasMonthx DATETIME 

45 AS * 
BEGIN 

SETNOCOUNTON 



50 Name: usp.PSPriceWaspCIearMonth 

Description: This routine will represents the common 'clean up' routine that 
wiil purge anything on the database that can be purged. 

55 The tables cleared include the following: 

GaslnvD (zero volume days for EstAct, Norn, PipelineActuais) 
LegDetail (zero volume routing entries) 

60 Inputs: , 

GasMonthx (gas month to calculate), 

History: 

65 

06/30/1999 JAMIE Original creation 

08/04/1 999 JAMIE Modifications to not delete the entries in the 
WASPPurchaseMeterTotals table. This is becuase this table contains 
70 the information necessary to calculate the margins on a deal. All other 
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supporting table entries wiii be deleted. 

10/12/1999 JAMIE Modifications to procedure to go out and delete any 
daily gas inventory entries that contain no data. Again, since this procedure 
5 is only executed when the gas month gets marked as completed there 

should be no repurcussions except fewer database records to administer. 
Anything of historical relevance will be retained (ie.. if any volume whatsoever). 

03/30/2000 JAMIE Modifications made in the procedure to remove the zero entry 
1 0 routing records from the database (prior deletion of the daily gas inventory 
items should have deleted all of these (based on triggers). However, 
this is for any/all other residuals. 

08/25/2000 JAMIE Modified in order to remove obsolete cleanup tables 
1 5 such as old routing tables/etc. 



7 

DECLARE ©zMessage VARCHAR(254) 
20 DECLARE ©zLastDay DATETIME 

DECLARE @wTID INTEGER 
DECLARE ©wGasDay DATETIME 

25 DECLARE ©qLDID INTEGER 

SELECT ©zMessage = STARTED, PSPriceWASPCIearMonth 1 

EXECUTE uspjvlessage @zMessage 

EXECUTE usp__fLastDay @GasMonthx,@zLastDay OUTPUT 

30 r 



* Remove daily inventory items that 

* are now zero... 



7 

DECLARE GaslnvDCursor CURSOR LOCAL STATIC FORWARD JDNLY FOR 
SELECT 

GaslnvJiD, 

GaslnvD.GasDay 

FROM 

Gaslnv, 
GasinvD 

WHERE 

GaslnvD.TID = GaslnvJiD AND 
Gaslnv.GasMonth=@GasMonthx AND 
GaslnvD.EstAct = 0 AND 
GaslnvD.Nom = 0 AND 
GaslnvD.PipeiineActuals = 0 

ORDER BY 

GaslnvJiD, 
GaslnvD.GasDay 

SELECT @zMessage = ' PSPriceWASPCIearMonth, Started removing ZEROd out Inventory Items...' 
EXECUTE uspjvlessage ©zMessage 
OPEN GaslnvDCursor 

FETCH NEXT FROM GaslnvDCursor INTO @wTID, @wGasDay 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

DELETE FROM GaslnvD WHERE T!D=@wTID AND GasDay=@wGasDay 
COMMIT WORK 

FETCH .NEXT FROM GaslnvDCursor INTO @wTID, ©wGasDay 

END 

CLOSE GaslnvDCursor 
DEALLOCATE GaslnvDCursor 

SELECT @zMessage = ' PSPriceWASPCIearMonth, Finished removing ZEROd out Inventory Items... 1 
EXECUTE usp_Message ©zMessage 

r 



* Remove any routing items that had 
70 * no entries within them. 
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7 

DECLARE LegDetailCursor CURSOR LOCAL STATIC FORWARDONLY FOR 
SELECT 

5 LDID 
FROM 

LegDetail 

WHERE 

GasMonth=@GasMonthx AND 
10 Receipts AND 

Delivered=OAND 
Balance=OAND 
FuelOrOther=0 

ORDER BY 

1 5 PurchasePointTID 

SELECT @zMessage = ' PSPriceWASPCIearMonth, Started removing ZEROd out Routing (LegDetaii) items... 1 
EXECUTE uspjvlessage ©zMessage 
OPEN LegDetailCursor 

FETCH NEXT FROM LegDetailCursor INTO @qLDID 
20 WHILE @@FETCH_STATUS = 0 

BEGIN 

BEGIN TRANSACTION 

DELETE FROM LegDetaii WHERE LDID=@qLDID 
COMMIT WORK 

25 FETCH NEXT FROM LegDetailCursor INTO ©qLDID 

END 

CLOSE LegDetailCursor 
DEALLOCATE LegDetailCursor 

SELECT ©zMessage = ' PSPriceWASPCIearMonth, Started removing ZEROd out Routing (LegDetaii) Items...' 
30 EXECUTE usp .Message @zMessage 

SELECT ©zMessage = FINISHED, PSPriceWASPCIearMonth 1 

EXECUTE usp_Message ©zMessage 

END 

35 



GO 

SET QUOTED JDENHFIER OFF SET ANSI NULLS ON 
40 GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

45 CREATE PROCEDURE usp_PSPriceWASPDivieOutProceedsN( 

@GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@EntityCIDxVARCHAR(12) 

) 

50 AS 

BEGIN 

r 



Name: usp.PSPriceWASPDivieOutProceeds 

55 

Description: 

This procedure will get executed during the WASP calculation in order 
to credit the financial proceeds (gain or loss) from one deal to another. 

60 

These proceed designations are setup on the package table 
(FinanciaiPKG and FinancialMID field contains either a deal id 
or a common wasp meter pool point that is to receive the proceeds). 
These fields are mutually exclusive on the deal table. 

65 

The default for all deals is the deaf itself (for owning the proceeds). Only 
if the FinanciaiPKG or FinancialMID field has been entered will it be 
distributed elsewhere. The distribution amount (if any) will be posted 
on the from deal record (either in the FinancialNomAmount or 
70 FinancialActAmount field, dependant on which price is calculating). 
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supporting table entries will be deleted. 



10/12/1999 JAMIE Modifications to procedure to go out and delete any 
daily gas inventory entries that contain no data. Again, since this procedure 
5 is only executed when the gas month gets marked as completed there 

should be no repurcussions except fewer database records to administer. 
Anything of historical reievance will be retained (ie.. if any volume whatsoever). 

03/30/2000 JAMIE Modifications made in the procedure to remove the zero entry 
1 0 routing records from the database (prior deletion of the daily gas inventory 
items should have deleted all of these (based on triggers). However, 
this is for any/all other residuals. 

08/25/2000 JAMIE Modified in order to remove obsolete cleanup tables 
1 5 such as old routing tables/etc. 



*/ 

DECLARE ©zMessage VARCHAR(254) 
20 DECLARE ©zLastDay DATETIME 

DECLARE @wTID INTEGER 
DECLARE ©wGasDay DATETIME 

25 DECLARE @qLDID INTEGER 

SELECT ©zMessage = '**** STARTED, PSPriceWASPCiearMonth' 

EXECUTE uspjvlessage ©zMessage 

EXECUTE uspJLastDay @GasMonthx,@zLastDay OUTPUT 

30 r 



* Remove daily inventory items that 

* are now zero... 



35 7 

DECLARE GaslnvDCursor CURSOR LOCAL STATIC FORWARD ONLY FOR 
SELECT 

Gastnv.TiD, 
GasinvD.GasDay 
40 FROM 

Gaslnv, 
GaslnvD 

WHERE 

GasinvD.TID = Gaslnv.TID AND 
45 Gaslnv.GasMonth=@GasMonthx AND 

GaslnvD.EstAct = 0 AND 
GaslnvD.Nom = 0 AND 
GaslnvD.PipelineActuats = 0 

ORDER BY 

50 Gaslnv.TID, 

GasinvD.GasDay 

SELECT @zMessage = * PSPriceWASPCiearMonth, Started removing ZEROd out Inventory Items... 
EXECUTE uspjvlessage @zMessage 
OPEN GaslnvDCursor 
55 FETCH NEXT FROM GaslnvDCursor INTO @wT!D, ©wGasDay 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

DELETE FROM GaslnvD WHERE TID=@wTID AND GasDay=@wGasDay 
60 COMMIT WORK 

FETCH .NEXT FROM GaslnvDCursor INTO @wTID, ©wGasDay 

END 

CLOSE GaslnvDCursor 
DEALLOCATE GaslnvDCursor 
65 SELECT ©zMessage = ' PSPriceWASPCiearMonth, Finished removing ZEROd out Inventory items. 

EXECUTE usp J/iessage @zMessage 

r 



* Remove any routing items that had 
70 * no entries within them. 
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This procedure works for 3rd party deals only (deal classification rule 
is equal to 'None'). The reason for this is because these are the only 
types of deals where we know the actual margin ('Common' (Wasp) 
5 and sanctioned sales (Dedicated) are netback calculated deals. 

For all FinanciaiPKG/MID entries this procedure will: 

1 Calculate the margin (purchase price and purchase meter price). 
10 2. Reduce the purchase meter amounts by the amount calculated. 

3. Post the dollar amount to the proceed purchase meters) based on their respective 
volume weightings to the deal. 

Inputs: 

15 

GasMonthx - Gas Month 
WhichPricex-0=Nominations, 1=Actuals 
EntityCIDx - owning company/entity 

20 History: 

07/27/1999 JAMIE Original Creation. 

10/13/1999 JAMIE Modified to cast the distribution amounts to decimal(18.4). 
25 This is because of bug receiving correct amount to distrubute when dividing 
two integers. 

03/30/2000 JAMIE Modified the program to not use the 'PackageLinks' 
table but to use the FinancialPKG field stored on the deal table. This 
30 was done as part of the integration with linking and the new route 
process. 

05/24/2000 JAMIE Modified to include the owning company/entity. 

35 07/28/2000 JAMIE Modified in order to post the updates of what is 
being distributed back to the Package table (for the 'from' deal) and 
then post the amounts to the WASP Purchase Meter table (for deals) 
or WASP Legs for meters. This change was done in order to 
facilitate the reordering of the calculations. 

40 

08/07/2000 JAMIE Modified so that even if diving to a specific deaf IF 
that deal is a wasp deal then all deals that share the same original 
purchase point meters as the deal being divied to (in the 'Common' pool) 
will share in the divie. 

45 

08/18/2000 JAMIE Modified so that if diving to a specific deal then the 
amount will go to the WASPResolvedRouting table versus the obsolete 
WASPPurchaseMeterTable. 

50 * ******** 

7 

r 



* Declare all variables and cursors 
55 * that are needed by this process. 



7 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zLastDay DATETIME 

60 DECLARE ©zPurchasePrice DECIMAL(19,6) 

DECLARE ©zlncludelnWasp VARCHAR(10) 
DECLARE ©zTotalVolume INTEGER 
DECLARE ©zGrandTotalDistributed DECIMAL(19,2) 
DECLARE @zTempVolPercentDECIMAL(19,4) 

65 DECLARE ©zAmountToDistribute DEC1MAL(19,2) 

DECLARE ©zMarginPrice DEC!MAL(18,4) 
DECLARE ©zMarginAmt DEC1MAL(19,2) 
DECLARE ©zFoundDedicated VARCHAR(1) 
DECLARE ©zSumofFBOPKGCreditMeters INTEGER 

70 DECLARE ©zAmountToCredit DECIMAL(19,2) 



-119- 



DECLARE ©zSumofFBOPKGMeters INTEGER 



DECLARE @yPKG INTEGER 
DECLARE ©yFinancialPKG INTEGER 
5 DECLARE ©yKProductID INTEGER 

DECLARE ©yKServicelD INTEGER 
DECLARE @yFinancialM!D INTEGER 

DECLARE ©yWASPReceipt DECIMAL(19,2) 
1 0 DECLARE ©yWASPAmount DECIMAL(1 9,2) 

DECLARE ©yWASPPrice DECiMAL(19,6) 
DECLARE ©yWASPResolvedlD INTEGER 

DECLARE ©yWASPCreditReceipt DECIMAL(19,2) 
1 5 DECLARE ©yWASPCreditAmount DECIMAL(19,2) 

DECLARE ©yWASPCreditPrice DEC!MAL(19,2) 
DECLARE ©yWASPCreditResolvedlD INTEGER 

DECLARE ©qDelivered DECIMAL(19,2) 
20 DECLARE ©qAmount DECIMAL(19,2) 

DECLARE ©qPrice DECIMAL(19,6) 
DECLARE ©qResolvedlD INTEGER 

SELECT ©zMessage = 'PSPriceWASPDivieOutProceedsN, STARTED* 1 
25 EXECUTE usp_Message @zMessage 

EXECUTE usp JLastDay @GasMonthx,@zLastDay OUTPUT 
r ^ 

* At this point we want to loop 
30 * through all of the packages 

* (deals) on the system that had 

* requested that the proceeds 
*be divied to other deals. 



45 



35 V 

DECLARE ProceedsCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

PKG, 

40 FinanciaiPKG, 

KProductID, 
KServicelD, 
FinanctaiMID 
FROM 



K 



WHERE 



(K.KID=Package.KID) AND 
(K.EntityCID=@EntityCIDx) AND 
50 (StartDate BETWEEN ©GasMonthx AND ©zLastDay) AND 

({(FinanciaiPKG IS NOT NULL) AND (FinancialPKG<>0)) OR ((FinanctaiMID IS 
NOT NULL) AND (FinanclalMID<>0))) 
ORDER BY 

PKG 

55 

OPEN ProceedsCursor 

FETCH NEXT FROM ProceedsCursor INTO @yPKG,@yFinancialPKG,@yKProductlD t @yKServicelD,@yFinanciaiMID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

60 , BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceWASPDivieOutProceedsN, Proceeds divied from deal..' + 
CAST(@yPKG as VARCHAR(12)) 

EXECUTE uspjvlessage ©zMessage 

r 

65 — - 

* Get the agreed upon purchase 

* price from the engine for the 

* 'from' purchase deal. The total 

* volume across all days is also 
70 * obtained here (for all meters). 
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* Base the price on the weighted 

* averages for all entries within 

* the Engine table. 
* 

* This yields the single weighted 

* average cost across all wells 

* and days. 

* This price should be the price 

* that was found PRIOR to diving 

* out any adjusments. 

7 

IF @WhichPricex=0 
BEGIN 

SELECT @zPurchasePrice=ROUND(ISNULL((SELECT 
SUM(Engine.Amount)/SUM(Engine. Volume) FROM Engine.Gaslnv 

WHERE 

(Gasinv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND (Engine JID=Gasinv.TID) AND (Engine.ST!D=8) 
AND 

Engine.Amount>0 and Engine.Volume>0),0),4) 

SELECT @zTotalVolume=iSNULL((SELECT SUM(Engine. Volume) 
FROM Engine.Gaslnv WHERE (Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND 

(EngineTID=GaslnvTID) AND (Engine.STID=8) AND 

Engine.Amount>0 and Engine. Volume>0),0) 
END 

IF @WhichPricex=1 
BEGIN 

SELECT @zPurchasePrice=ROUND(ISNULL((SELECT 
SUM(Engine.AmountAct)/SUM(Engine.VolumeAct) FROM Engine,Gasinv 

WHERE 

(Gaslnv.GasMonth=@GasMonthx AND Gasinv.PKG=@yPKG) AND (Engine JID=Gaslnv JID) AND (Engine.STiD=8) 
AND 

Engine.AmountAct>0 and Engine. VolumeAct>0),0),4) 

SELECT @zTotalVoiume=ISNULL((SELECT SUM(Engine.VolumeAct) 
FROM Engine.Gaslnv WHERE (Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND 

(Engine JlD=Gaslnv.TID) AND (Engine.STlD=8) AND 

Engine. AmountAct>0 and Engine. VolumeAct>0),0) 
END 

r 



* Only continue if the purchase 

* price (average) for this deal 

* could be calculated (ia. there 

* was a volume and there was 

* a price entry. 
* 

* Now loop through each of the 

* meters to determine how much 

* to reduce each meter by... 

7 

SELECT @zGrandTotalDistributed=0 
IF (@zPurchasePrice>0) 
BEGIN 

IF @zTotaiVolume<>0 
BEGIN 



/* This cursor is for determining proceed 



amounts7 



DECLARE 

WASPResolvedRoutingDebitCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
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SELECT 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



AND 



WASPResoivedRouting 

GasMonth=@GasMonthx AND 
DedicatedPurchasePKG=@yPKG AND 
NomOrActual=@WhichPricex AND 
EntityCID=@EntityCIDxAND 
KProduct!D=@yKProductlD AND 
KServiceID=@yKServiceiD AND 
ResoivedType^P'AND 

RecMID=DelMID 



receipt, 
amount, 
price, 

ResolvediD 
FROM 



WHERE 



INTO @yWASPReceipt,@yWASPArnount, 

@yWASPPrice,@yWASPResoivedlD 



@2MarginPrice=R0UND({@yWASPPrice-@zPurchasePrice),4) 
@2MarginAmt=ROUND((@zMarginPrice*@zTotafVolume),2) 



UD=0 



OPEN WASPResolvedRoutingDebitCursor 
FETCH NEXT FROM WASPResolvedRoutingDebitCursor 



WHILE @@FETCH_STATUS = 0 
BEGIN 
SELECT 



SELECT 

IF @yWaspReceipt>0 
BEGIN 



SELECT @zTempVolPercent=ROUND((@yWaspReceipt/@zTotalVolume),4) 
SELECT @zAmountToDistribute=ROUND((@zTempVolPercent*@zMargir^mt) t 2) 
SELECT ^GrandTotalDistributed=@zGrandTotalDistributed+@zAmountToDistribute 
UPDATE 

WASPResoivedRouting 
SET 

Amount=AmounH@zAmountToDistribute*-1) 

WHERE 

ResolvedlD=@yWASPResolvedlD 

UPDATE 

WASPResoivedRouting 
SET 

Price-(Amount/Receipt) 

WHERE 

ResolvediD=@yWASPResolvedlD AND 
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Receipt<>0 AND 



AmountoO 

5 END 

FETCH NEXT FROM 

WASPResolvedRoutingDebitCursor INTO @yWASPReceipt,@yWASPAmount, 

@yWASPPrice,@yWASPResolvediD 
10 END 

CLOSE WASPResolvedRoutingDebitCursor 
DEALLOCATE 

WASPResolvedRoutingDebitCursor 

END 

15 END 



* At this point, if there has been any 

* proceeds distributed from the 

20 * purchase deal then go and distribute 

* the amount back to the deal where 
*that is receiving credit This is 

* based on the volume weighting 

* distribution at the target 'to' meter. 



25 



30 



* The field zGrandToialDistributed contains 

* the total dollar amount to be credited 
*the the meters (based on volume 

* weighting. 

*/ 

IF @zGrandTotalDistributed<>0 
BEGIN 

I* 



35 

* Post the 'from' deal with the 

* appropriate distributed amount. 

* This is the total amount across 

* the entire deal and is stored on 
40 * the deal record to provide an 

* audit of how much was diverted. 



*/ 

IF @WhichPricex=0 

45 BEGIN 

UPDATE 

Package 
SET 

50 FinanciaINomAmount=@2GrandTotalDistributed 

WHERE 

PKG=@yPKG 

END 

IF @WhichPricex=1 

55 BEGIN 

UPDATE 

Package 



60 Financia!ActAmount=@zGrandTotaiDistributed 

END 



SET 
WHERE 



PKG=@yPKG 



65 - ********** ***** * — ***** 

* If diving to another deai then 

* perform this.... Adjustments are 

* made to the WASPResolvedRouting 

* table. There is no need to post 
70 * adjustments to the Engine table 
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65 



* since the target deals have either 

* not yet calculated (dedicated) or 

* the Engine price is fixed (3rd 

ix ff^XXXXXXXX XXXlXX XXXXlX XXXXiXXXXXXiX 

7 

IF (@yFinancialPKG IS NOT NULL) AND (@yFinancialPKG<>0) 
BEGIN 
/* 



10 

* Determine if the target deal is 

* a wasp deal or a 3rd party or 

* sanctioned sale deal... if it is a 

* wasp deal then the originating 
1 5 * meters in the common pool 

* will get the credit. 



20 @yFinancialPKG,@zlncludelnWasp OUTPUT 



25 



7 

EXECUTE uspJGetWasplndicator 



* Sum totals across all meters on 
*the target deal... 



7 

IF@WhichPricex=0 

BEGIN 
SELECT 

30 @zSumofFBOPKGCreditMeters=ISNULL((SELECT SUM(inventory.Nom) FROM gaslnv AS inventory 

WHERE inventory .PKG=@yFinancialPKG AND inventory.GasMonth=@GasMonthx AND 
inventory.DBCR=0 AND inventory,PriceType=1),0) 

END 

35 !F@WhichPricex=1 

BEGIN 
SELECT 

@zSumofFBOPKGCreditMeters=ISNULL((SELECT SUM(inventory.PipelineActuais) FROM gaslnv AS inventory 

40 WHERE inventory.PKG=@yFinancialPKG AND inventory.GasMonth=@GasMonthx AND 

inventory. DBCR=0 AND inventory.PriceType=1),0) 

END 

fxxxxxxxxxxxxxxxx xxxxxxx xxxxxxxxxxxxxxuxx 

45 * If there is some sort of volume 

* then post it proportionately. 



7 

IF @zSumofFBOPKGCreditMetets<>0 
50 BEGIN 

r 



* if not a wasp deal to post the 
55 * credit to then... 



7 

IF ©zlncludelnWasp <> 

60 'Common' 

BEGIN 



I* This cursor is for posting proceeds to a dedicated deaf point7 

DECLARE WASPResolvedRoutingCreditDedicatedCursor CURSOR LOCAL STATIC FORWARD.ONLY 



FOR 

70 SELECT 
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receipt, 
amount, 

5 

price, 

ResolvedlD 

10 FROM 

WASPResolvedRouting 

WHERE 

15 

GasMonth=@GasMonthx AND 
DedicatedPurchasePKG=@yFinancialPKG AND 
20 NomOrActual=@WhichPricex AND 

receipt>0 AND 
ResolvedType='P*AND 

25 

UD=0 AND 
RecMID=DelMlD 

30 OPEN WASPResolvedRoutingCreditDedicatedCursor 

FETCH NEXT FROM WASPResolvedRoutingCreditDedicatedCursor INTO ©yWASPCreditReceipt 

@yWASPCreditAmount@yWASPCreditPrice t @yWASPCreditResolvedlD 
WHILE @@FETCH_STATUS = 0 
BEGIN 



35 



40 SELECT 

^TempVoiPercent=ROUND((@yWaspCreditReceipV@zSumofFBOPKGCreditMeters) l 4) 



45 



60 



SELECT 

@2AmountToCredit=ROUND((@zTempVolPercent*@zGrandTotalDistributed),2) 



IF @zAmountToCredit<>0 
BEGIN 

50 UPDATE 



55 



WASPResolvedRouting 
SET 

Amount=(Amount-^zAmountToCredit) 



WHERE 



ResoivedlD=@yWASPCreditResoivedlD 

UPDATE 

65 ^ " WASPResolvedRouting 

SET 

Price=(Amount/Receipt) 
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WHERE 



10 



15 



20 



30 



35 



ResolvedlD=@yWASPCreditResolvediDAND 

AmountoO AND 
Reoeipt<>0 

END 

FETCH NEXT FROM WASPResolvedRoutingCreditDedicatedCursor INTO 



@yWASPCredttReceipt 



@yWASPCreditAmount,@yWASPCreditPrice,@yWASPCreditResoivedlD 
END 

CLOSE WASPResolvedRoutingCreditDedicatedCursor 
DEALLOCATE WASPResoivedRoutingCreditDedicatedCursor 

END 

25 r 



* if wasp deal to post the 
*creditto then... 



IF @zfncludelnWasp- Common' 
BEGIN 



/* This cursor is for posting proceeds to a common meter purchase point*/ 

40 DECLARE WASPResolvedRoutingCreditWASPCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 

SELECT 

wp.receipt, 

45 

wp.amount, 
wp.price, 

50 wp.ResolvedID 

FROM 

WASPResolvedRouting AS wp, 

55 

Gaslnv AS g 

WHERE 

60 g.GasMonth=@GasMonthxAND 

g.PKG=@yFinancialPKGAND 
g.Gaslnv_MID=wp.RecMID AND 

65 

wp.GasMonth=@GasMonthx AND 
wp.DedicatedPurchasePKG=0 AND 
70 wp.lncludelnWasp^'Common 1 AND 
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10 



15 



20 



25 



30 



35 



40 



45 



wp.NomOrActuai=@WhichPricex AND 
wp.receipt>0 AND 
wp.EntityC!D=@EntityCIDx AND 
wp.KProductlD=@yKProductlD AND 
wp.KServicelD=@yKServicelD AND 
wp.ResolvedType='P' AND 
wp.UD=OAND 
wp.RecMID=De!MID 
OPEN WASPResolvedRoutingCreditWASPCursor 

FETCH NEXT FROM WASPResolvedRoutingCreditWASPCursor INTO ©yWASPCreditReceipt, 

©yWASPCreditAmount^yWASPCreditPrice.QyWASPCreditResolvedlD 
WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT 

@zTempVoIPercent=ROUND((@yWaspCreditReceipt/@zSumofFBOPKGCreditMeters),4) 

SELECT 

@zAmountToCredit=ROUND((@zTempVolPercent*@2GrandTotaiDistributed),2) 

IF @zAmountToCredit<>0 
BEGIN 

UPDATE 

WASPResolvedRouting 
SET 

Amount={Amount+@zAmountToCredit) 



WHERE 



50 



55 



60 



65 



ResolvedlD=@yWASPCreditResolvedlD 

UPDATE 



WHERE 



ResolvedlD=@yWASPCreditResolvedlD AND 



WASPResolvedRouting 
SET 

Price=(Amount/Receipt) 



Amount<>OAND 
Receipt<>0 



END 
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FETCH NEXT FROM WASPResoivedRoutingCreditWASPCursor INTO 

@yWASPCreditReceipt, 



@yWASPCreditAmount,@yWASPCreditPrice,@yWASPCreditResolvedlD 
END 

CLOSE WASPResoivedRoutingCreditWASPCursor 
DEALLOCATE WASPResolvedRoutingCreditWASPCursor 

END 

END 

/* 



END 



* If diving to the WASP pool then 

* the total distributed is posted 

* proportionately on each ieg that 

* contains this meter in the 

* 'Common' pool. 



7 

IF (@yFinancialMID IS NOT NULL) AND <@yFinancialMID<>0) 
BEGIN 

r 



* Sum totals across ail legs that 

* have the same meter in the 

* 'Common' pool for the month. 



7 

SELECT 

@zSumofFBOPKGCreditMeters=lSNULL((SELECT SUM(Delivered) FROM WaspResolvedRouting 
WHERE GasMontrF@GasMonthx AND LID<>0 AND 

NomOrActuai=@WhichPricex AND InciudelnWasp^Common' AND 
EntityCID=@EntityCIDx AND KProductlD=@yKProductID AND 
KServiceiD=@yKServiceiD AND DeiMID=@yFinancialMID),0) 

r 



* If there is some sort of volume 

* then post it proportionately to 

* each of the legs in the WASP 

* resolved routing table. 

7 

IF @zSumofFBOPKGCreditMeters<>0 
BEGIN 



I* This cursor is for 



posting proceeds to a wasp pool (non entry point)*/ 



DECLARE 

WASPResolvedRoutingCreditCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 

SELECT 

delivered, 

amount 

price, 

ResolvedID 
FROM 
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WASPResoivedRouting 

WHERE 

5 

GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
1 0 EntityCID=@EntityCIDx AND 

KProductiD=@yKProductlD AND 
KServicelD=@yKServicelD AND 

15 

DeIMiD=@yFinancialMID AND 
LIDoOAND 

20 IncludelnWasp- Common' AND 

delivered>0 

OPEN 

WASPResofvedRoutingCreditCursor 
25 FETCH NEXT FROM 

WASPResolvedRoutingCreditCursorlNTO@qDelivered,@qAmount,@qPrice,@qResolvedlD 

WHILE 

@@FETCH,STATUS = 0 

BEGIN 

30 



35 * Determine the percent to post 

* here... 



40 

*/ 

SELECT @zTempVolPeiXfint=ROUND((@qDeiivered/@zSumoFBOPKGCreditMeters) ( 4) 
45 SELECT @zAmountToCredit=ROUND((@zTempVolPercent*@zGrandTotalDistributed),2) 

IF @zAmountToCredit<>0 
BEGIN 

50 

UPDATE 

WASPResoivedRouting 
55 SET 

Amount=(Amount-*@zAmountToCredit) 

WHERE 

60 

ResolvediD=@qResolvedlD 

END 

65 FETCH NEXT FROM WASPResolvedRoutingCreditCursor INTO @qDe!ivered,@qAmount, 



(5)qPrice,@qResolvedlD 

END 
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CLOSE 

WASPResoivedRoutingCreditCursor 

DEALLOCATE 

WASPResolvedRoutingCreditCursor 

END 

END 

END 

COMMIT WORK 

FETCH NEXT FROM ProceedsCursor INTO 
©yPKG.QyFinanciaiPKG.QyKProductlD^yKServicelD^yFinancialMID 
END 

CLOSE ProceedsCursor 
DEALLOCATE ProceedsCursor 

SELECT ©zMessage = 'PSPriceWASPDivieOutProceedsN, FINISHED**** 

EXECUTE usp_Message @zMessage 

END 



GO 

SET QUOTEDJDENT1FIER OFF SETANSi.NULLS ON 
GO 

SET QUOTEDJDENTIFIER ON SET ANSI.NULLS ON 
GO 



CREATE PROCEDURE uspJGetCalclndex( 

@TIDx INTEGER, 
©NomOrActuaix INTEGER, 
@EntityClDxVARCHAR(12), 
©KProductlDx INTEGER, 
@KSeivicelDx INTEGER, 
©GasMonthx DATETIME, 
©rReturnValue DECIMAL(19,6) OUTPUT 
) 

AS 

BEGIN 

r 



Name: uspJGetCalclndex 

Description: This is the main process for finding the actual price that was 
calculated for a WASP purchase deal. The WASPResolvedRouting table 
contains all of the prices for WASP purchases. 

An attempt should first be made to see if the price can be resolved by reading 
for a 'Dedicated* wasp pool (sanctioned sales/purchases are more or less 
dedicated). The purchase deal id must match the dedicatedpurchasepkg field 
on the WASPResolvedRouting. 

If the specific package cannot be found then the purchase meter will be used 
(ie.. 'Common' wasp pool). 

Inputs: 

TIDx - Unique Key to gas inventory record (Gasinv) 
NomOrActualx - 0=Nominations, ^Actualizations 
EntityCIDx- owner 
KProductlDx- product id 
KServiceiDx- service 
GasMonthx - Current gas month 
rRetumValue - OUTPUT return value 



-130- 



History: 



06/29/1999 JAMIE Modified from original creation 

(date of original creation ?) to support WASP calc changes V2.20. 

06/22/2000 JAMIE Modified to get wasp prices based on entity, 
product, and service. 

08/18/2000 JAMIE Modified to get the wasp prices off the WASPResolvedRouting 
table versus the obsolete WASPPurchaseMeterTable. 

1 1/07/2000 JAMIE Modifications to convert from Watcom-SQL to 
Transact-SQL 



7 

r 

* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE ©yrnid INTEGER 
DECLARE @ypkg INTEGER 
DECLARE @ygasmonth DATETIME 
DECLARE ©yWorkValue DECIMAU19.6) 
DECLARE ©message VARCHAR(255) 
/* 



* Initialize key fields and then get 

* the meter and deal information 

* off the gas inventory table. 

7 

SELECT @rRetumValue=0 
SELECT 

@ymid=gasinv_mid, 
@ypkg=pkg, 
@ygasmonth=gasmonth 
FROM 

gasinv 

WHERE 

tid=@tidx 

r 



* Now try and read the price off the 

* WASPResolvedRouting with 

* an assumption that it could be a 

* sanctioned sale deal. 



7 

r 



* If price is a dedicated purchase 

* price then get that number. Otherwise, 

* the the price from the WASP pool. 



7 

IF ((SELECT countf) FROM WASPResolvedRouting 

WHERE DedicatedPurchasePKG=@ypkg AND GasMonth=@ygasmonth AND lncludeInWasp='Dedicated' 
AND NomOrActual=@NomOrActualx AND RecMID=@ymid 

AND DelMID=@ymid AND ResotvedType='P' AND LID=0 AND 
EntityCID=@EntityCIDx AND KProductiD=@KProductiDx AND KServiceiD=@KServiceiDx) > 0) 

BEGIN 

SELECT @yWorkValue=Price FROM WASPResolvedRouting 

WHERE DedicatedPurchasePKG=@ypkg AND GasMonth=@ygasmonth AND 
IncludelnWasp^'Dedicated' AND NomOrActual=@NomOrActualx AND RecMID=@ymid 

AND De!MID=@ymid AND ResolvedType^P* AND UD=0 AND 
EntityClD=@EntityCIDx AND KProductlD=@KProductlDx AND KServicelD=@KServicelDx 
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END 

ELSE 

BEGIN 

SELECT @yWorkVaiue=Price FROM WASPResoivedRouting 
5 WHERE RecMID=@ymid AND DelMID=@ymid AND UD=0 AND ResolvedType='P' 

AND gasmonth=@ygasmonth AND IncludelnWasp-Common 1 AND 
NomOrActuai=@NomOrActualx AND EntityCID=@EntityCIDx 

AND KProductlD=@KProductlDx AND 

KServiceiD=@KServicelDx 
10 END 
/* 



* If some sort of price was found then 

* return with it... Otherwise zeros 
15 * are returned (no price calculated). 



*/ 

r 

SELECT ©message = 'WASP Price 1 + 
20 CAST(@yWorkVaiue AS VARCHAR(12)) + 

'for meter id' + 

CAST{@ymid AS VARCHAR(12)) 
EXECUTE usp_message ©message 
*/ 

25 IF ©yWorkValue IS NOT NULL 

BEGIN 

SELECT @rRetumVaiue=@yWorkValue 

END 

END 

30 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI.NULLS ON 
35 GO 



ADDITIONAL FEATURES 

40 The present invention has been disclosed, illustrated, and 

described in relation to a client-server application that facilitates 
pricing and distribution of fuel to a customer. Although centralized 
data storage and manipulation is preferred in regard to the version 
of the system that has been provided, the inventors contemplate 

45 other applications and enhancements that certainly are within the 
scope of the present invention. For example, the present 
invention relies on data inputs and feeds from a variety of entities 
such as producers, transporters, etc. Although such data inputs 
are often entered manually into the systems provided by the 

50 present invention, such data inputs could be automatically 
delivered and stored within data store 106 (FIG. 2). For example, 
transporters controlling actual meters along a gas pipeline, for 



-132- 



example, could be outfitted with remote sensors and transmitters 
that provide shipment volume, etc. details directly to the systems 
provided by the present invention. Moreover, data inputs such as 
indexing datum used to drive pricing, etc. may be similarly 

5 obtained. And, since such data inputs can come from a variety of 
sources, modern communications technologies such as the 
Internet, wireless technologies, etc. could all be used to couple an 
operator of the systems and methods provided by the present 
invention with such sources. Accordingly, the present invention is 

10 not limited to any particular data retrieval system, topology, 
method, or paradigm. Those skilled in the art will be immediately 
able to adapt and modify the underlying data collection 
capabilities of the systems and methods provided by the present 
invention to incorporate such new and modern technologies and 

15 techniques. 

Finally, it should be noted that the present invention 
contemplates and provides for an elaborate reporting capability as 
provided within the software contained on the attached compact 
disc. Those skilled in the art of computer programming and those 

20 familiar with fuel deal management will immediately understand 
that any number of report may be prepared to suit and satisfy 
management requirements. The database tables maintained by 
the present invention certainly support all types of relational type 
queries that such reports may require. 

25 Thus, having fully described the present invention by way 

of example with reference to the attached drawing figures, it will 
be readily appreciated that many changes and modifications may 
be made to the invention and to any of the exemplary 
embodiments shown and/or described herein without departing 

30 from the spirit or scope of the invention which is defined in the 
appended claims. 
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